(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    294570,       8248]
NotebookOptionsPosition[    284548,       8112]
NotebookOutlinePosition[    285098,       8133]
CellTagsIndexPosition[    285055,       8130]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Initialize", "Subtitle",ExpressionUUID->"bb31c54c-e809-433e-b00e-e760e5c5ab3c"],

Cell[BoxData[
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}]], "Input",ExpressionUUID->"1c8363a7-28d1-434d-b372-e97d23e3effa"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Gamma]", " ", "=", "0.2"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"\[Lambda]", "=", "50"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"TOL", "=", "10000"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"TT", "=", "0.5"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"cel", "=", "1"}], ";"}]}], "Input",ExpressionUUID->"7f2efbac-1a80-\
4889-90d6-971fb763f5f0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"tempfile16", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directory", "[", "]"}], ",", "\"\<modules\>\"", ",", 
      "\"\<Lorentzian.wdx\>\""}], "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"tempfile13", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directory", "[", "]"}], ",", "\"\<modules\>\"", ",", 
      "\"\<vertice.wdx\>\""}], "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"tempfile14", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directory", "[", "]"}], ",", "\"\<modules\>\"", ",", 
      "\"\<Deficient.wdx\>\""}], "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"tempfile17", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directory", "[", "]"}], ",", "\"\<data\>\"", ",", 
      "\"\<vmax.wl\>\""}], "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"tempfile18", "=", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Directory", "[", "]"}], ",", "\"\<modules\>\"", ",", 
       "\"\<Boundary.wdx\>\""}], "}"}], "]"}]}], ";"}], "\n"}], "\n", 
 RowBox[{"Get", "[", "tempfile13", "]"}], "\n", 
 RowBox[{"Get", "[", "tempfile14", "]"}], "\n", 
 RowBox[{"Get", "[", "tempfile16", "]"}], "\n", 
 RowBox[{"Get", "[", "tempfile17", "]"}], "\n", 
 RowBox[{
  RowBox[{"Get", "[", "tempfile18", "]"}], "\n", 
  RowBox[{"(*", 
   RowBox[{"ccr", "=", 
    RowBox[{"{", 
     RowBox[{
     "13.597198807962943`", ",", "34.86750511573782`", ",", 
      "14.368758638002316`"}], "}"}]}], "*)"}], "\n", 
  RowBox[{"(*", 
   RowBox[{"ccr", "=", 
    RowBox[{"{", 
     RowBox[{
     "13.107432461134675`", ",", "33.84127994949433`", ",", 
      "16.14908263918081`"}], "}"}]}], "*)"}]}], "\n", 
 RowBox[{"ccr", "=", 
  RowBox[{"{", 
   RowBox[{
   "12.842108228341`", ",", "33.33192391213714`", ",", 
    "17.105431193445618`"}], "}"}]}], "\n", 
 RowBox[{
  RowBox[{"tempfile6", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directory", "[", "]"}], ",", "\"\<modules\>\"", ",", 
      RowBox[{
       RowBox[{"ToString", "[", "\[Lambda]", "]"}], "<>", "\"\<-\>\"", "<>", 
       RowBox[{"ToString", "[", "ccr", "]"}], "<>", "\"\<-\>\"", "<>", 
       "\"\<core.mx\>\""}]}], "}"}], "]"}]}], ";"}], "\n"}], "Input",Expressio\
nUUID->"12e32b7b-8f52-478b-a0f9-acb503a19259"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"{", 
   RowBox[{
   "13.597198807962943`", ",", "34.86750511573782`", ",", 
    "14.368758638002316`"}], "}"}], "*)"}]], "Input",ExpressionUUID->\
"fe7cda1e-b0f3-4cf2-9b92-195b9d3e1cf8"],

Cell[BoxData[""], "Input",ExpressionUUID->"b86522c3-1179-4c27-81b5-0b681425fc3f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LogM", "[", 
   RowBox[{"z_", ",", 
    RowBox[{"\[Sigma]_:", "0"}]}], "]"}], ":=", 
  RowBox[{
   RowBox[{"Log", "[", 
    RowBox[{"z", " ", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", "I"}], "*", 
       RowBox[{"(", 
        RowBox[{"\[Sigma]", "*", "Pi"}], ")"}]}], "]"}]}], "]"}], "+", 
   RowBox[{"I", "*", "\[Sigma]", "*", "Pi"}]}]}]], "Input",ExpressionUUID->\
"29551a4a-adfb-4323-9c8f-94d0276efc39"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"ccr", "=", 
    RowBox[{"{", 
     RowBox[{"10.57036", ",", "29.64435", ",", "10.51941"}], "}"}]}], ";"}], 
  "*)"}]], "Input",ExpressionUUID->"729b5ba4-e7f3-4064-bb7f-e18454c77b89"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Boundary testing Functions", "Subtitle",ExpressionUUID->"7e5db456-7c15-4b7f-b7c4-eddd57168650"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"asd", "=", 
    RowBox[{"Vertices", "[", 
     RowBox[{"vid", ",", "Sid", ",", "Vertex", ",", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"ccr", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"ccr", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "]"}], ",", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"ccr", "[", 
        RowBox[{"[", "3", "]"}], "]"}], "]"}]}], "]"}]}], ";"}], "//", 
  "Quiet"}]], "Input",ExpressionUUID->"b73b2b5d-50ab-49e6-b1ed-b9a5c5d3055b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"CrTest1", "[", 
   RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"c1", ",", "c2", ",", "a", ",", "b"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"a", "=", 
      RowBox[{
       RowBox[{"Position", "[", 
        RowBox[{"Sid", ",", "x"}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"b", "=", 
      RowBox[{
       RowBox[{"Position", "[", 
        RowBox[{"Sid", ",", "y"}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"c1", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"ConjugateTranspose", "[", 
         RowBox[{"gv", "[", 
          RowBox[{"[", 
           RowBox[{"a", ",", "y"}], "]"}], "]"}], "]"}], " ", ".", " ", 
        RowBox[{"zv", "[", 
         RowBox[{"[", 
          RowBox[{"a", ",", "y", ",", "z"}], "]"}], "]"}]}], "/", 
       RowBox[{"Norm", "[", 
        RowBox[{
         RowBox[{"ConjugateTranspose", "[", 
          RowBox[{"gv", "[", 
           RowBox[{"[", 
            RowBox[{"a", ",", "y"}], "]"}], "]"}], "]"}], " ", ".", " ", 
         RowBox[{"zv", "[", 
          RowBox[{"[", 
           RowBox[{"a", ",", "y", ",", "z"}], "]"}], "]"}]}], "]"}]}]}], ";", 
     "\n", 
     RowBox[{"c2", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"ConjugateTranspose", "[", 
         RowBox[{"gv", "[", 
          RowBox[{"[", 
           RowBox[{"b", ",", "x"}], "]"}], "]"}], "]"}], " ", ".", " ", 
        RowBox[{"zv", "[", 
         RowBox[{"[", 
          RowBox[{"b", ",", "x", ",", "z"}], "]"}], "]"}]}], "/", 
       RowBox[{"Norm", "[", 
        RowBox[{
         RowBox[{"ConjugateTranspose", "[", 
          RowBox[{"gv", "[", 
           RowBox[{"[", 
            RowBox[{"b", ",", "x"}], "]"}], "]"}], "]"}], " ", ".", " ", 
         RowBox[{"zv", "[", 
          RowBox[{"[", 
           RowBox[{"b", ",", "x", ",", "z"}], "]"}], "]"}]}], "]"}]}]}], ";", 
     "\n", 
     RowBox[{"If", "[", "\n", 
      RowBox[{
       RowBox[{
        RowBox[{"Abs", "[", 
         RowBox[{"c2", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], "<", 
        RowBox[{"10", "^", 
         RowBox[{"-", "14"}]}]}], ",", "\n", 
       RowBox[{
        RowBox[{"Abs", "[", 
         RowBox[{
          RowBox[{"c1", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "/", 
          RowBox[{"c2", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "-", "1"}], ",", "\n", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Abs", "[", 
           RowBox[{"c2", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}], "<", 
          RowBox[{"10", "^", 
           RowBox[{"-", "14"}]}]}], ",", "\n", 
         RowBox[{
          RowBox[{"Abs", "[", 
           RowBox[{
            RowBox[{"c1", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "/", 
            RowBox[{"c2", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "-", "1"}], ",", "\n", 
         RowBox[{
          RowBox[{
           RowBox[{"c1", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "/", 
           RowBox[{"c2", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "-", 
          RowBox[{
           RowBox[{"c1", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "/", 
           RowBox[{"c2", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}]}]}], "\n", "]"}]}], "\n", 
      "]"}]}]}], "\n", "]"}]}]], "Input",ExpressionUUID->"1f29d59b-7dac-4d34-\
bd74-7d0086647d5e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"CrTests2", "[", 
   RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"gv", "[", 
      RowBox[{"[", 
       RowBox[{"x", ",", "y"}], "]"}], "]"}], " ", ".", " ", 
     RowBox[{"ConjugateTranspose", "[", 
      RowBox[{"gv", "[", 
       RowBox[{"[", 
        RowBox[{"x", ",", "y"}], "]"}], "]"}], "]"}], " ", ".", " ", 
     RowBox[{"zv", "[", 
      RowBox[{"[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}]}], "/", 
    RowBox[{
     RowBox[{"Norm", "[", 
      RowBox[{
       RowBox[{"ConjugateTranspose", "[", 
        RowBox[{"gv", "[", 
         RowBox[{"[", 
          RowBox[{"x", ",", "y"}], "]"}], "]"}], "]"}], " ", ".", " ", 
       RowBox[{"zv", "[", 
        RowBox[{"[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}]}], "]"}], "^", 
     "2"}]}], "-", 
   RowBox[{
    RowBox[{
     RowBox[{"gv", "[", 
      RowBox[{"[", 
       RowBox[{"x", ",", "z"}], "]"}], "]"}], " ", ".", " ", 
     RowBox[{"ConjugateTranspose", "[", 
      RowBox[{"gv", "[", 
       RowBox[{"[", 
        RowBox[{"x", ",", "z"}], "]"}], "]"}], "]"}], " ", ".", " ", 
     RowBox[{"zv", "[", 
      RowBox[{"[", 
       RowBox[{"x", ",", "z", ",", "y"}], "]"}], "]"}]}], "/", 
    RowBox[{
     RowBox[{"Norm", "[", 
      RowBox[{
       RowBox[{"ConjugateTranspose", "[", 
        RowBox[{"gv", "[", 
         RowBox[{"[", 
          RowBox[{"x", ",", "z"}], "]"}], "]"}], "]"}], " ", ".", " ", 
       RowBox[{"zv", "[", 
        RowBox[{"[", 
         RowBox[{"x", ",", "z", ",", "y"}], "]"}], "]"}]}], "]"}], "^", 
     "2"}]}]}]}]], "Input",ExpressionUUID->"750db505-cf29-4446-807d-\
8167a8a879fb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"CrTests3", "[", 
   RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "c1", ",", "c2", ",", "c3", ",", "c4", ",", "z", ",", "n1", ",", "n2", 
      ",", "n3", ",", "n4", ",", "xp"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"z", "=", 
      RowBox[{"Sort", "[", 
       RowBox[{"vid", "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"x", "->", "Nothing"}], ",", 
          RowBox[{"y", "->", "Nothing"}]}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"xp", "=", 
      RowBox[{
       RowBox[{"Position", "[", 
        RowBox[{"Sid", ",", "x"}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"c1", "=", 
      RowBox[{
       RowBox[{"ConjugateTranspose", "[", 
        RowBox[{"gv", "[", 
         RowBox[{"[", 
          RowBox[{"xp", ",", "y"}], "]"}], "]"}], "]"}], " ", ".", " ", 
       RowBox[{"zv", "[", 
        RowBox[{"[", 
         RowBox[{"xp", ",", "y", ",", 
          RowBox[{"z", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}]}]}], ";", "\n", 
     RowBox[{"c2", "=", 
      RowBox[{
       RowBox[{"ConjugateTranspose", "[", 
        RowBox[{"gv", "[", 
         RowBox[{"[", 
          RowBox[{"xp", ",", "y"}], "]"}], "]"}], "]"}], " ", ".", " ", 
       RowBox[{"zv", "[", 
        RowBox[{"[", 
         RowBox[{"xp", ",", "y", ",", 
          RowBox[{"z", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}]}]}], ";", "\n", 
     RowBox[{"c3", "=", 
      RowBox[{
       RowBox[{"ConjugateTranspose", "[", 
        RowBox[{"gv", "[", 
         RowBox[{"[", 
          RowBox[{"xp", ",", "y"}], "]"}], "]"}], "]"}], " ", ".", " ", 
       RowBox[{"zv", "[", 
        RowBox[{"[", 
         RowBox[{"xp", ",", "y", ",", 
          RowBox[{"z", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}]}]}], ";", "\n", 
     RowBox[{"c4", "=", 
      RowBox[{
       RowBox[{"ConjugateTranspose", "[", 
        RowBox[{"gv", "[", 
         RowBox[{"[", 
          RowBox[{"xp", ",", "y"}], "]"}], "]"}], "]"}], " ", ".", " ", 
       RowBox[{"zv", "[", 
        RowBox[{"[", 
         RowBox[{"xp", ",", "y", ",", 
          RowBox[{"z", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "]"}]}]}], ";", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", 
          RowBox[{"-", "1"}], ",", "1", ",", 
          RowBox[{"-", "1"}]}], "}"}], "*", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"arv", "[", 
           RowBox[{"[", 
            RowBox[{"xp", ",", "y", ",", 
             RowBox[{"z", "[", 
              RowBox[{"[", "xs", "]"}], "]"}]}], "]"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"xs", ",", "1", ",", "4"}], "}"}]}], "]"}], "*", 
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Conjugate", "[", "#", "]"}], " ", ".", " ", 
               RowBox[{"PauliMatrix", "[", "xs", "]"}], " ", ".", " ", "#"}], 
              "/", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Norm", "[", "#", "]"}], "^", "2"}], ")"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"xs", ",", "1", ",", "3"}], "}"}]}], "]"}], "&"}], ",", 
          RowBox[{"{", 
           RowBox[{"c1", ",", "c2", ",", "c3", ",", "c4"}], "}"}]}], "]"}]}], 
       "//", "Total"}], "//", "Norm"}]}]}], "\n", "\n", "]"}]}]], "Input",Expr\
essionUUID->"9b869718-2e46-4500-b114-34a637dcaed8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"TestSpin", "[", "a_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"na", ",", 
      RowBox[{"ca", "=", 
       RowBox[{"Chop", "[", 
        RowBox[{"a", ",", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "13"}], ")"}]}]}], "]"}]}]}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"na", "=", 
      RowBox[{"Norm", "[", "ca", "]"}]}], ";", "\n", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", 
          RowBox[{
           RowBox[{"ca", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "!=", "0"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"na", "==", "0"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", 
          RowBox[{
           RowBox[{
            RowBox[{"ca", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "==", "0"}], "&&", 
           RowBox[{"na", "!=", "0"}]}]}], "}"}]}], "}"}], "]"}]}]}], "\n", 
   "]"}]}]], "Input",ExpressionUUID->"a474ab2b-b333-457a-950d-c6310ef94516"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Action", "Subtitle",ExpressionUUID->"ce9ad4ee-6c0c-4911-b63d-48375d775b3a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"MEXP", "[", 
    RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"z1", ",", "z2", ",", "z3", ",", "out"}], "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"z1", "=", 
       RowBox[{"1", "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"x", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "+", 
           RowBox[{"I", "*", 
            RowBox[{"y", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}], "/", 
         RowBox[{"Sqrt", "[", "2", "]"}]}]}]}], ";", "\n", 
      RowBox[{"z2", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "+", 
          RowBox[{"I", "*", 
           RowBox[{"y", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}], "/", 
        RowBox[{"Sqrt", "[", "2", "]"}]}]}], ";", "\n", 
      RowBox[{"z3", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"I", "*", 
           RowBox[{"y", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}]}], ")"}], "/", 
        RowBox[{"Sqrt", "[", "2", "]"}]}]}], ";", "\n", 
      RowBox[{"out", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"z1", ",", "z2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"z3", ",", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{"z2", " ", "z3"}]}], ")"}], "/", "z1"}]}], "}"}]}], 
        "}"}]}]}]}], "\n", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"ZEXP", "[", 
    RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"z1", ",", "z2"}], "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"z1", "=", 
       RowBox[{"1", "/", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"x", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}]}], ";", "\n", 
      RowBox[{"z2", "=", 
       RowBox[{
        RowBox[{"x", "[", 
         RowBox[{"[", "2", "]"}], "]"}], "+", 
        RowBox[{"I", " ", 
         RowBox[{"y", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}]}]}], ";", "\n", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"z1", ",", "z2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"1", "+", 
           RowBox[{"x", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}]}], "}"}]}]}], "\n", 
    "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"MCEXP", "[", 
    RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"z1", ",", "z2", ",", "z3", ",", "out"}], "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"z1", "=", 
       RowBox[{"1", "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"x", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "-", 
           RowBox[{"I", "*", 
            RowBox[{"y", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}], "/", 
         RowBox[{"Sqrt", "[", "2", "]"}]}]}]}], ";", "\n", 
      RowBox[{"z2", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "-", 
          RowBox[{"I", "*", 
           RowBox[{"y", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}], "/", 
        RowBox[{"Sqrt", "[", "2", "]"}]}]}], ";", "\n", 
      RowBox[{"z3", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "-", 
          RowBox[{"I", "*", 
           RowBox[{"y", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}]}], ")"}], "/", 
        RowBox[{"Sqrt", "[", "2", "]"}]}]}], ";", "\n", 
      RowBox[{"out", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"z1", ",", "z2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"z3", ",", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{"z2", " ", "z3"}]}], ")"}], "/", "z1"}]}], "}"}]}], 
        "}"}]}]}]}], "\n", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"ZCEXP", "[", 
   RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"z1", ",", "z2"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"z1", "=", 
      RowBox[{"1", "/", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"x", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}]}], ";", "\n", 
     RowBox[{"z2", "=", 
      RowBox[{
       RowBox[{"x", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "-", 
       RowBox[{"I", " ", 
        RowBox[{"y", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}]}]}], ";", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"z1", ",", "z2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{"1", "+", 
          RowBox[{"x", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}]}], "}"}]}]}], "\n", 
   "]"}]}], "\n", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"ZV", "[", 
     RowBox[{"z_", ",", "x_"}], "]"}], ":=", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", 
        RowBox[{
         RowBox[{"z", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "+", 
         RowBox[{"x", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", " ", 
         RowBox[{"I", " ", 
          RowBox[{"x", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}]}]}], "}"}], "\n", 
      RowBox[{"CZV", "[", 
       RowBox[{"z_", ",", "x_"}], "]"}]}], ":=", 
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{
        RowBox[{"Conjugate", "[", 
         RowBox[{"z", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], "+", 
        RowBox[{"x", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "-", " ", 
        RowBox[{"I", " ", 
         RowBox[{"x", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}]}]}], "}"}]}]}], "*)"}]}]}], "Input",\
ExpressionUUID->"39d9fa65-b529-4d5c-b33c-b4f503d4e180"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ZV", "[", 
   RowBox[{"z_", ",", "x_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "\n", 
     RowBox[{"t1", "=", 
      RowBox[{"TestSpin", "[", "z", "]"}]}], "\n", "}"}], ",", "\n", 
    RowBox[{"Switch", "[", 
     RowBox[{"t1", ",", "2", ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", 
        RowBox[{
         RowBox[{"z", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "+", 
         RowBox[{"x", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", " ", 
         RowBox[{"I", " ", 
          RowBox[{"x", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}]}]}], "}"}], ",", "1", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"z", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", 
         RowBox[{"x", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", " ", 
         RowBox[{"I", " ", 
          RowBox[{"x", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
        RowBox[{"z", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "0", ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "\n", "]"}]}], "\n", 
 RowBox[{
  RowBox[{"CZV", "[", 
   RowBox[{"z_", ",", "x_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "\n", 
     RowBox[{"t1", "=", 
      RowBox[{"TestSpin", "[", "z", "]"}]}], "\n", "}"}], ",", "\n", 
    RowBox[{"Switch", "[", 
     RowBox[{"t1", ",", "2", ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", 
        RowBox[{
         RowBox[{"Conjugate", "[", 
          RowBox[{"z", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}], "+", 
         RowBox[{"x", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "-", " ", 
         RowBox[{"I", " ", 
          RowBox[{"x", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}]}]}], "}"}], ",", "1", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"Conjugate", "[", 
          RowBox[{"z", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}], "+", 
         RowBox[{"x", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "-", " ", 
         RowBox[{"I", " ", 
          RowBox[{"x", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
        RowBox[{"z", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "0", ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "\n", "]"}]}]}], "Input",Exp\
ressionUUID->"26adc6db-3542-42a4-8791-d10c7b037b0d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"GG", "[", "x_", "]"}], ":=", 
   RowBox[{"If", "[", "\n", 
    RowBox[{
     RowBox[{
      RowBox[{"Length", "[", "x", "]"}], "==", "6"}], ",", "\n", 
     RowBox[{"MEXP", "[", 
      RowBox[{
       RowBox[{"x", "[", 
        RowBox[{"[", 
         RowBox[{"1", ";;", "3"}], "]"}], "]"}], ",", 
       RowBox[{"x", "[", 
        RowBox[{"[", 
         RowBox[{"4", ";;", "6"}], "]"}], "]"}]}], "]"}], ",", "\n", 
     RowBox[{"ZEXP", "[", 
      RowBox[{
       RowBox[{"x", "[", 
        RowBox[{"[", 
         RowBox[{"1", ";;", "2"}], "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", "[", 
         RowBox[{"[", "3", "]"}], "]"}], "}"}]}], "]"}]}], "\n", "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"CGG", "[", "x_", "]"}], ":=", 
   RowBox[{"If", "[", "\n", 
    RowBox[{
     RowBox[{
      RowBox[{"Length", "[", "x", "]"}], "==", "6"}], ",", "\n", 
     RowBox[{"Transpose", "[", 
      RowBox[{"MCEXP", "[", 
       RowBox[{
        RowBox[{"x", "[", 
         RowBox[{"[", 
          RowBox[{"1", ";;", "3"}], "]"}], "]"}], ",", 
        RowBox[{"x", "[", 
         RowBox[{"[", 
          RowBox[{"4", ";;", "6"}], "]"}], "]"}]}], "]"}], "]"}], ",", "\n", 
     RowBox[{"Transpose", "[", 
      RowBox[{"ZCEXP", "[", 
       RowBox[{
        RowBox[{"x", "[", 
         RowBox[{"[", 
          RowBox[{"1", ";;", "2"}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "}"}]}], "]"}], "]"}]}], "\n", 
    "]"}]}], ";"}]}], "Input",ExpressionUUID->"a52833ea-e259-45e4-99ea-\
137b263c65a9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SPL", "[", "AA_", "]"}], ":=", 
  RowBox[{"Join", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"AA", "[", 
       RowBox[{"[", 
        RowBox[{"x", ";;", 
         RowBox[{"x", "+", "2"}]}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "1", ",", "9", ",", "3"}], "}"}]}], "]"}], ",", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"AA", "[", 
       RowBox[{"[", 
        RowBox[{"x", ";;", 
         RowBox[{"x", "+", "5"}]}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "10", ",", "63", ",", "6"}], "}"}]}], "]"}], ",", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"AA", "[", 
       RowBox[{"[", 
        RowBox[{"x", ";;", 
         RowBox[{"x", "+", "1"}]}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "64", ",", "123", ",", "2"}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"AA", "[", 
       RowBox[{"[", "124", "]"}], "]"}], "}"}], "}"}]}], "]"}]}]], "Input",Exp\
ressionUUID->"f61739a5-b8d1-4ac0-aa58-f2cbba7f4390"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"gf", "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", "5", ",", "3"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Tfg", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Sid", "[", 
        RowBox[{"[", "x", "]"}], "]"}], ",", 
       RowBox[{"gf", "[", 
        RowBox[{"[", "x", "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Sfg", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Sid", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"Mod", "[", 
           RowBox[{"x", ",", "3"}], "]"}], "+", "1"}], "]"}], "]"}], ",", 
       RowBox[{"Sid", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"Mod", "[", 
           RowBox[{
            RowBox[{"x", "+", "1"}], ",", "3"}], "]"}], "+", "1"}], "]"}], 
        "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "2"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"kfg", "=", 
   RowBox[{"ArrayReshape", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Sid", "[", 
             RowBox[{"[", "x", "]"}], "]"}], ",", "#"}], "}"}], "&"}], ",", 
         RowBox[{"vid", "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"Sid", "[", 
              RowBox[{"[", "x", "]"}], "]"}], "->", "Nothing"}], ",", 
            RowBox[{
             RowBox[{"gf", "[", 
              RowBox[{"[", "x", "]"}], "]"}], "->", "Nothing"}], ",", 
            RowBox[{
             RowBox[{"Sid", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"Mod", "[", 
                 RowBox[{"x", ",", "3"}], "]"}], "+", "1"}], "]"}], "]"}], "->",
              "Nothing"}]}], "}"}]}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "3"}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"9", ",", "2"}], "}"}]}], "]"}]}], ";"}]}], "Input",ExpressionUU\
ID->"c14b6a69-2335-4c31-b5aa-7d948f784bba"],

Cell[BoxData[
 RowBox[{
  RowBox[{"PSD", "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{"Position", "[", 
    RowBox[{"Sid", ",", "x"}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "1"}], "]"}], "]"}]}]], "Input",ExpressionUUID->\
"6e88a72a-9d74-4c9e-8579-13e0b093072f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Orientation", " ", "List"}], "*)"}], "\n", 
  RowBox[{
   RowBox[{"EE", "=", 
    RowBox[{"{", "\n", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"6", ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "2"}], "}"}]}], "}"}], ",", "\n", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "1"}], "}"}]}], "}"}], ",", "\n", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"4", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "1"}], "}"}]}], "}"}], ",", "\n", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"4", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "3"}], "}"}]}], "}"}], ",", "\n", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"6", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "3"}], "}"}]}], "}"}], ",", "\n", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"6", ",", "5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "5"}], "}"}]}], "}"}], ",", "\n", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"6", ",", "5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "5"}], "}"}]}], "}"}], ",", "\n", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"4", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "3"}], "}"}]}], "}"}], ",", "\n", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "1"}], "}"}]}], "}"}], ",", "\n", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", "5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "5"}], "}"}]}], "}"}], ",", " ", "\n", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"6", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "5"}], "}"}]}], "}"}], ",", "\n", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"6", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "3"}], "}"}]}], "}"}], ",", "\n", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"6", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "5"}], "}"}]}], "}"}], ",", "\n", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"4", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "3"}], "}"}]}], "}"}], ",", "\n", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"4", ",", "5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "3"}], "}"}]}], "}"}], ",", "\n", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"4", ",", "5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "1"}], "}"}]}], "}"}], ",", "\n", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "5"}], "}"}]}], "}"}], ",", "\n", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", "5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "1"}], "}"}]}], "}"}], ",", "\n", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "1"}], "}"}]}], "}"}]}], "\n", "}"}]}], 
   ";"}]}]], "Input",ExpressionUUID->"f25dcbf1-0ef4-4f34-b202-06cf89902abb"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"inds", "=", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"5", ",", "6"}], "}"}]}], "}"}], "}"}], ",", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "4", ",", "2", ",", "3"}], "}"}], ",", "9"}], 
        "]"}]}], "]"}], ",", 
     RowBox[{"ConstantArray", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", "10"}], "]"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"acl", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"EE", "[", 
            RowBox[{"[", "x", "]"}], "]"}], "[", 
           RowBox[{"[", "#", "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"DeleteDuplicates", "@", 
            RowBox[{"Flatten", "@", 
             RowBox[{"EE", "[", 
              RowBox[{"[", "x", "]"}], "]"}]}]}], "/.", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"#", "->", "Nothing"}], "&"}], "/@", 
             RowBox[{
              RowBox[{"EE", "[", 
               RowBox[{"[", "x", "]"}], "]"}], "[", 
              RowBox[{"[", "#", "]"}], "]"}]}], ")"}]}]}], "]"}], "&"}], ",", 
       RowBox[{"inds", "[", 
        RowBox[{"[", "x", "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Depth", "[", 
          RowBox[{"inds", "[", 
           RowBox[{"[", "x", "]"}], "]"}], "]"}], "-", "1"}], "}"}]}], "]"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1", ",", 
       RowBox[{"Length", "[", "EE", "]"}]}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"zindex", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "}"}], ",", 
        RowBox[{"Sort", "[", 
         RowBox[{"#", "[", 
          RowBox[{"[", 
           RowBox[{"2", ";;", "3"}], "]"}], "]"}], "]"}]}], "]"}], "&"}], "/@", 
     RowBox[{"ArrayReshape", "[", 
      RowBox[{"acl", ",", 
       RowBox[{"{", 
        RowBox[{"60", ",", "3"}], "}"}]}], "]"}]}], "//", 
    "DeleteDuplicates"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"gindex", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"Sfg", ",", "kfg"}], "]"}]}], ";"}]}], "Input",ExpressionUUID->\
"91be52d0-1cde-4691-ae8c-26d96380d20f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Action1", "[", 
   RowBox[{"Z13_", ",", "CZ13_", ",", "Z23_", ",", "CZ23_", ",", "J3_"}], 
   "]"}], ":=", 
  RowBox[{"J3", "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", 
      RowBox[{"Log", "[", 
       RowBox[{"CZ13", " ", ".", " ", "Z23"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], " ", "-", "1"}], ")"}], 
      RowBox[{"Log", "[", 
       RowBox[{"CZ13", " ", ".", " ", "Z13"}], "]"}]}], "-", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], "+", "1"}], ")"}], " ", 
      RowBox[{"Log", "[", 
       RowBox[{"CZ23", " ", ".", " ", "Z23"}], "]"}]}]}], ")"}]}]}], "\n", 
 RowBox[{
  RowBox[{"Action2", "[", 
   RowBox[{
   "Z1_", ",", "CZ1_", ",", "Z2_", ",", "CZ2_", ",", "Z3_", ",", "CZ3_", ",", 
    "Z4_", ",", "CZ4_", ",", "X1_", ",", "X2_", ",", "J_"}], "]"}], ":=", 
  RowBox[{"J", "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{"Conjugate", "[", "X1", "]"}], " ", ".", " ", "Z1"}], "]"}],
         "+", 
        RowBox[{"Log", "[", 
         RowBox[{"CZ2", " ", ".", " ", "X2"}], "]"}], "+", 
        RowBox[{"Log", "[", 
         RowBox[{"CZ3", " ", ".", " ", "Z4"}], "]"}]}], ")"}]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], "+", "1"}], ")"}], 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"CZ1", " ", ".", " ", "Z1"}], "]"}], "+", 
        RowBox[{"Log", "[", 
         RowBox[{"CZ4", " ", ".", " ", "Z4"}], "]"}]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], " ", "-", "1"}], ")"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"CZ2", " ", ".", " ", "Z2"}], "]"}], "+", 
        RowBox[{"Log", "[", 
         RowBox[{"CZ3", " ", ".", " ", "Z3"}], "]"}]}], ")"}]}]}], 
    ")"}]}]}], "\n", 
 RowBox[{
  RowBox[{"Action3", "[", 
   RowBox[{
   "Z1_", ",", "CZ1_", ",", "Z2_", ",", "CZ2_", ",", "X1_", ",", "X2_", ",", 
    "J_"}], "]"}], ":=", 
  RowBox[{"J", "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{"Conjugate", "[", "X1", "]"}], " ", ".", " ", "Z1"}], "]"}],
         "+", 
        RowBox[{"Log", "[", 
         RowBox[{"CZ2", " ", ".", " ", "X2"}], "]"}]}], ")"}]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], "+", "1"}], ")"}], 
      RowBox[{"(", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"CZ1", " ", ".", " ", "Z1"}], "]"}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], " ", "-", "1"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"Log", "[", 
        RowBox[{"CZ2", " ", ".", " ", "Z2"}], "]"}], ")"}]}]}], 
    ")"}]}]}], "\n", 
 RowBox[{
  RowBox[{"Action4", "[", 
   RowBox[{
   "Z1_", ",", "CZ1_", ",", "Z2_", ",", "CZ2_", ",", "X1_", ",", "X2_", ",", 
    "J_"}], "]"}], ":=", 
  RowBox[{"J", "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"LogM", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Conjugate", "[", "X1", "]"}], " ", ".", " ", "Z1"}], ",", 
          "1"}], "]"}], "+", 
        RowBox[{"LogM", "[", 
         RowBox[{
          RowBox[{"CZ2", " ", ".", " ", "X2"}], ",", "1"}], "]"}]}], ")"}]}], 
     "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], "+", "1"}], ")"}], 
      RowBox[{"(", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"CZ1", " ", ".", " ", "Z1"}], "]"}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], " ", "-", "1"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"Log", "[", 
        RowBox[{"CZ2", " ", ".", " ", "Z2"}], "]"}], ")"}]}]}], 
    ")"}]}]}], "\n", 
 RowBox[{
  RowBox[{"Action14", "[", 
   RowBox[{
   "Z13_", ",", "CZ13_", ",", "Z23_", ",", "CZ23_", ",", "J3_", ",", 
    "\[Gamma]_"}], "]"}], ":=", 
  RowBox[{"J3", "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", 
      RowBox[{"Log", "[", 
       RowBox[{"CZ13", " ", ".", " ", "Z23"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], " ", "-", "1"}], ")"}], 
      RowBox[{"Log", "[", 
       RowBox[{"CZ13", " ", ".", " ", "Z13"}], "]"}]}], "-", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], "+", "1"}], ")"}], " ", 
      RowBox[{"Log", "[", 
       RowBox[{"CZ23", " ", ".", " ", "Z23"}], "]"}]}]}], ")"}]}]}], "\n", 
 RowBox[{
  RowBox[{"Action24", "[", 
   RowBox[{
   "Z1_", ",", "CZ1_", ",", "Z2_", ",", "CZ2_", ",", "Z3_", ",", "CZ3_", ",", 
    "Z4_", ",", "CZ4_", ",", "X1_", ",", "X2_", ",", "J_", ",", "\[Gamma]_"}],
    "]"}], ":=", 
  RowBox[{"J", "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{"Conjugate", "[", "X1", "]"}], " ", ".", " ", "Z1"}], "]"}],
         "+", 
        RowBox[{"Log", "[", 
         RowBox[{"CZ2", " ", ".", " ", "X2"}], "]"}], "+", 
        RowBox[{"Log", "[", 
         RowBox[{"CZ3", " ", ".", " ", "Z4"}], "]"}]}], ")"}]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], "+", "1"}], ")"}], 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"CZ1", " ", ".", " ", "Z1"}], "]"}], "+", 
        RowBox[{"Log", "[", 
         RowBox[{"CZ4", " ", ".", " ", "Z4"}], "]"}]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], " ", "-", "1"}], ")"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"CZ2", " ", ".", " ", "Z2"}], "]"}], "+", 
        RowBox[{"Log", "[", 
         RowBox[{"CZ3", " ", ".", " ", "Z3"}], "]"}]}], ")"}]}]}], 
    ")"}]}]}], "\n", 
 RowBox[{
  RowBox[{"Action34", "[", 
   RowBox[{
   "Z1_", ",", "CZ1_", ",", "Z2_", ",", "CZ2_", ",", "X1_", ",", "X2_", ",", 
    "J_", ",", "\[Gamma]_"}], "]"}], ":=", 
  RowBox[{"J", "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{"Conjugate", "[", "X1", "]"}], " ", ".", " ", "Z1"}], "]"}],
         "+", 
        RowBox[{"Log", "[", 
         RowBox[{"CZ2", " ", ".", " ", "X2"}], "]"}]}], ")"}]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], "+", "1"}], ")"}], 
      RowBox[{"(", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"CZ1", " ", ".", " ", "Z1"}], "]"}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], " ", "-", "1"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"Log", "[", 
        RowBox[{"CZ2", " ", ".", " ", "Z2"}], "]"}], ")"}]}]}], 
    ")"}]}]}], "\n", 
 RowBox[{
  RowBox[{"Action44", "[", 
   RowBox[{
   "Z1_", ",", "CZ1_", ",", "Z2_", ",", "CZ2_", ",", "X1_", ",", "X2_", ",", 
    "J_", ",", "\[Gamma]_"}], "]"}], ":=", 
  RowBox[{"J", "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"LogM", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Conjugate", "[", "X1", "]"}], " ", ".", " ", "Z1"}], ",", 
          "1"}], "]"}], "+", 
        RowBox[{"LogM", "[", 
         RowBox[{
          RowBox[{"CZ2", " ", ".", " ", "X2"}], ",", "1"}], "]"}]}], ")"}]}], 
     "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], "+", "1"}], ")"}], 
      RowBox[{"(", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"CZ1", " ", ".", " ", "Z1"}], "]"}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], " ", "-", "1"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"Log", "[", 
        RowBox[{"CZ2", " ", ".", " ", "Z2"}], "]"}], ")"}]}]}], 
    ")"}]}]}], "\n", 
 RowBox[{
  RowBox[{"Action11", "[", 
   RowBox[{"Z1_", ",", "CZ1_", ",", "Z2_", ",", "CZ2_", ",", "J_"}], "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"CZ1", " ", ".", " ", "Z2"}], ",", 
    RowBox[{"CZ1", " ", ".", " ", "Z1"}], ",", 
    RowBox[{"CZ2", " ", ".", " ", "Z2"}]}], "}"}]}], "\n", 
 RowBox[{
  RowBox[{"Action21", "[", 
   RowBox[{
   "Z1_", ",", "CZ1_", ",", "Z2_", ",", "CZ2_", ",", "Z3_", ",", "CZ3_", ",", 
    "Z4_", ",", "CZ4_", ",", "X1_", ",", "X2_", ",", "J_"}], "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"Conjugate", "[", "X1", "]"}], " ", ".", " ", "Z1"}], ",", 
    RowBox[{"CZ2", " ", ".", " ", "X2"}], ",", 
    RowBox[{"CZ3", " ", ".", " ", "Z4"}], ",", 
    RowBox[{"CZ1", " ", ".", " ", "Z1"}], ",", 
    RowBox[{"CZ4", " ", ".", " ", "Z4"}], ",", 
    RowBox[{"CZ2", " ", ".", " ", "Z2"}], ",", 
    RowBox[{"CZ3", " ", ".", " ", "Z3"}]}], "}"}]}], "\n", 
 RowBox[{
  RowBox[{"Action31", "[", 
   RowBox[{
   "Z1_", ",", "CZ1_", ",", "Z2_", ",", "CZ2_", ",", "X1_", ",", "X2_", ",", 
    "J_"}], "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"Conjugate", "[", "X1", "]"}], " ", ".", " ", "Z1"}], ",", 
    RowBox[{"CZ2", " ", ".", " ", "X2"}], ",", 
    RowBox[{"CZ1", " ", ".", " ", "Z1"}], ",", 
    RowBox[{"CZ2", " ", ".", " ", "Z2"}]}], "}"}]}], "\n", 
 RowBox[{
  RowBox[{"ActionS1", "[", 
   RowBox[{"acl_", ",", "Z_", ",", "ZC_", ",", "jv_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Z11", ",", "Z21", ",", "CZ11", ",", "CZ21", ",", "J1"}], "}"}], 
    ",", "\n", 
    RowBox[{
     RowBox[{"Z11", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ11", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z21", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ21", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"J1", "=", 
      RowBox[{"jv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Action1", "[", 
      RowBox[{"Z11", ",", "CZ11", ",", "Z21", ",", "CZ21", ",", "J1"}], 
      "]"}]}]}], "\n", "]"}]}], "\n", 
 RowBox[{
  RowBox[{"ActionS2", "[", 
   RowBox[{"acl_", ",", "Z_", ",", "ZC_", ",", "jv_", ",", "xv_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "Z1", ",", "Z2", ",", "Z3", ",", "Z4", ",", "CZ1", ",", "CZ2", ",", 
      "CZ3", ",", "CZ4", ",", "X1", ",", "X2", ",", "J"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"X1", "=", 
      RowBox[{"xv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"X2", "=", 
      RowBox[{"xv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z1", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ1", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z2", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ2", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z3", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ3", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z4", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ4", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"J", "=", 
      RowBox[{"jv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Action2", "[", 
      RowBox[{
      "Z1", ",", "CZ1", ",", "Z2", ",", "CZ2", ",", "Z3", ",", "CZ3", ",", 
       "Z4", ",", "CZ4", ",", "X1", ",", "X2", ",", "J"}], "]"}]}]}], "\n", 
   "]"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"ActionS3", "[", 
    RowBox[{"acl_", ",", "Z_", ",", "ZC_", ",", "jv_", ",", "xv_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "Z1", ",", "Z2", ",", "CZ1", ",", "CZ2", ",", "X1", ",", "X2", ",", 
       "J"}], "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"X1", "=", 
       RowBox[{"xv", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"X2", "=", 
       RowBox[{"xv", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"Z1", "=", 
       RowBox[{"Z", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"CZ1", "=", 
       RowBox[{"ZC", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"Z2", "=", 
       RowBox[{"Z", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"CZ2", "=", 
       RowBox[{"ZC", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"J", "=", 
       RowBox[{"jv", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"acl", "==", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"4", ",", "1", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "3", ",", "1"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"Action4", "[", 
         RowBox[{
         "Z1", ",", "CZ1", ",", "Z2", ",", "CZ2", ",", "X1", ",", "X2", ",", 
          "J"}], "]"}], ",", 
        RowBox[{"Action3", "[", 
         RowBox[{
         "Z1", ",", "CZ1", ",", "Z2", ",", "CZ2", ",", "X1", ",", "X2", ",", 
          "J"}], "]"}]}], "]"}]}]}], "\n", "\n", "]"}]}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"ActionS14", "[", 
   RowBox[{"acl_", ",", "Z_", ",", "ZC_", ",", "jv_", ",", "\[Gamma]_"}], 
   "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Z11", ",", "Z21", ",", "CZ11", ",", "CZ21", ",", "J1"}], "}"}], 
    ",", "\n", 
    RowBox[{
     RowBox[{"Z11", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ11", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z21", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ21", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"J1", "=", 
      RowBox[{"jv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Action14", "[", 
      RowBox[{
      "Z11", ",", "CZ11", ",", "Z21", ",", "CZ21", ",", "J1", ",", 
       "\[Gamma]"}], "]"}]}]}], "\n", "]"}]}], "\n", 
 RowBox[{
  RowBox[{"ActionS24", "[", 
   RowBox[{
   "acl_", ",", "Z_", ",", "ZC_", ",", "jv_", ",", "xv_", ",", "\[Gamma]_"}], 
   "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "Z1", ",", "Z2", ",", "Z3", ",", "Z4", ",", "CZ1", ",", "CZ2", ",", 
      "CZ3", ",", "CZ4", ",", "X1", ",", "X2", ",", "J"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"X1", "=", 
      RowBox[{"xv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"X2", "=", 
      RowBox[{"xv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z1", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ1", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z2", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ2", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z3", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ3", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z4", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ4", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"J", "=", 
      RowBox[{"jv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Action24", "[", 
      RowBox[{
      "Z1", ",", "CZ1", ",", "Z2", ",", "CZ2", ",", "Z3", ",", "CZ3", ",", 
       "Z4", ",", "CZ4", ",", "X1", ",", "X2", ",", "J", ",", "\[Gamma]"}], 
      "]"}]}]}], "\n", "]"}]}], "\n", 
 RowBox[{
  RowBox[{"ActionS34", "[", 
   RowBox[{
   "acl_", ",", "Z_", ",", "ZC_", ",", "jv_", ",", "xv_", ",", "\[Gamma]_"}], 
   "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "Z1", ",", "Z2", ",", "CZ1", ",", "CZ2", ",", "X1", ",", "X2", ",", 
      "J"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"X1", "=", 
      RowBox[{"xv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"X2", "=", 
      RowBox[{"xv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z1", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ1", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z2", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ2", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"J", "=", 
      RowBox[{"jv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"acl", "==", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"4", ",", "1", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "3", ",", "1"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Action44", "[", 
        RowBox[{
        "Z1", ",", "CZ1", ",", "Z2", ",", "CZ2", ",", "X1", ",", "X2", ",", 
         "J", ",", "\[Gamma]"}], "]"}], ",", 
       RowBox[{"Action34", "[", 
        RowBox[{
        "Z1", ",", "CZ1", ",", "Z2", ",", "CZ2", ",", "X1", ",", "X2", ",", 
         "J", ",", "\[Gamma]"}], "]"}]}], "]"}]}]}], "\n", "\n", 
   "]"}]}], "\n", 
 RowBox[{
  RowBox[{"ActionS11", "[", 
   RowBox[{"acl_", ",", "Z_", ",", "ZC_", ",", "jv_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Z1", ",", "Z2", ",", "CZ1", ",", "CZ2", ",", "J"}], "}"}], ",", 
    "\n", 
    RowBox[{
     RowBox[{"Z1", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ1", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z2", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ2", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"J", "=", 
      RowBox[{"jv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Action11", "[", 
      RowBox[{"Z1", ",", "CZ1", ",", "Z2", ",", "CZ2", ",", "J"}], "]"}]}]}], 
   "\n", "]"}]}], "\n", 
 RowBox[{
  RowBox[{"ActionS21", "[", 
   RowBox[{"acl_", ",", "Z_", ",", "ZC_", ",", "jv_", ",", "xv_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "Z1", ",", "Z2", ",", "Z3", ",", "Z4", ",", "CZ1", ",", "CZ2", ",", 
      "CZ3", ",", "CZ4", ",", "X1", ",", "X2", ",", "J"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"X1", "=", 
      RowBox[{"xv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"X2", "=", 
      RowBox[{"xv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z1", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ1", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z2", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ2", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z3", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ3", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z4", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ4", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"J", "=", 
      RowBox[{"jv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Action21", "[", 
      RowBox[{
      "Z1", ",", "CZ1", ",", "Z2", ",", "CZ2", ",", "Z3", ",", "CZ3", ",", 
       "Z4", ",", "CZ4", ",", "X1", ",", "X2", ",", "J"}], "]"}]}]}], "\n", 
   "]"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"ActionS31", "[", 
    RowBox[{"acl_", ",", "Z_", ",", "ZC_", ",", "jv_", ",", "xv_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "Z1", ",", "Z2", ",", "CZ1", ",", "CZ2", ",", "X1", ",", "X2", ",", 
       "J"}], "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"X1", "=", 
       RowBox[{"xv", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"X2", "=", 
       RowBox[{"xv", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"Z1", "=", 
       RowBox[{"Z", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"CZ1", "=", 
       RowBox[{"ZC", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"Z2", "=", 
       RowBox[{"Z", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"CZ2", "=", 
       RowBox[{"ZC", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"J", "=", 
       RowBox[{"jv", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"Action31", "[", 
       RowBox[{
       "Z1", ",", "CZ1", ",", "Z2", ",", "CZ2", ",", "X1", ",", "X2", ",", 
        "J"}], "]"}]}]}], "\n", "]"}]}], "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"SR", "[", 
    RowBox[{
    "xtt_", ",", "Z_", ",", "ZC_", ",", "jv_", ",", "xv_", ",", "\[Gamma]_"}],
     "]"}], ":=", 
   RowBox[{"Which", "[", "\n", 
    RowBox[{
     RowBox[{
      RowBox[{"Length", "[", "xtt", "]"}], "==", "3"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"ActionS1", "[", 
         RowBox[{"#", ",", "Z", ",", "ZC", ",", "jv"}], "]"}], "&"}], "/@", 
       "xtt"}], "//", "Total"}], ",", "\n", 
     RowBox[{
      RowBox[{"Length", "[", "xtt", "]"}], "==", "4"}], ",", 
     RowBox[{"ActionS2", "[", 
      RowBox[{"xtt", ",", "Z", ",", "ZC", ",", "jv", ",", "xv"}], "]"}], ",", 
     "\n", 
     RowBox[{
      RowBox[{"Length", "[", "xtt", "]"}], "==", "2"}], ",", 
     RowBox[{"ActionS3", "[", 
      RowBox[{"xtt", ",", "Z", ",", "ZC", ",", "jv", ",", "xv"}], "]"}]}], 
    "\n", "]"}]}], "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"SRx", "[", 
    RowBox[{
    "xtt_", ",", "Z_", ",", "ZC_", ",", "jv_", ",", "xv_", ",", "\[Gamma]_"}],
     "]"}], ":=", 
   RowBox[{"Which", "[", "\n", 
    RowBox[{
     RowBox[{
      RowBox[{"Length", "[", "xtt", "]"}], "==", "3"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"ActionS14", "[", 
         RowBox[{"#", ",", "Z", ",", "ZC", ",", "jv", ",", "\[Gamma]"}], 
         "]"}], "&"}], "/@", "xtt"}], "//", "Total"}], ",", "\n", 
     RowBox[{
      RowBox[{"Length", "[", "xtt", "]"}], "==", "4"}], ",", 
     RowBox[{"ActionS24", "[", 
      RowBox[{
      "xtt", ",", "Z", ",", "ZC", ",", "jv", ",", "xv", ",", "\[Gamma]"}], 
      "]"}], ",", "\n", 
     RowBox[{
      RowBox[{"Length", "[", "xtt", "]"}], "==", "2"}], ",", 
     RowBox[{"ActionS34", "[", 
      RowBox[{
      "xtt", ",", "Z", ",", "ZC", ",", "jv", ",", "xv", ",", "\[Gamma]"}], 
      "]"}]}], "\n", "]"}]}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"SR1", "[", 
   RowBox[{"xtt_", ",", "Z_", ",", "ZC_", ",", "jv_", ",", "xv_"}], "]"}], ":=", 
  RowBox[{"Which", "[", "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"Length", "[", "xtt", "]"}], "==", "3"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"ActionS1", "[", 
       RowBox[{"#", ",", "Z", ",", "ZC", ",", "jv"}], "]"}], "&"}], "/@", 
     "xtt"}], ",", "\n", 
    RowBox[{
     RowBox[{"Length", "[", "xtt", "]"}], "==", "4"}], ",", 
    RowBox[{"ActionS2", "[", 
     RowBox[{"xtt", ",", "Z", ",", "ZC", ",", "jv", ",", "xv"}], "]"}], ",", 
    "\n", 
    RowBox[{
     RowBox[{"Length", "[", "xtt", "]"}], "==", "2"}], ",", 
    RowBox[{"ActionS3", "[", 
     RowBox[{"xtt", ",", "Z", ",", "ZC", ",", "jv", ",", "xv"}], "]"}]}], 
   "\n", "]"}]}], "\n", 
 RowBox[{
  RowBox[{"ActionF", "[", "xt_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "AA", ",", "AB", ",", "gtv", ",", "gctv", ",", "ztv", ",", "zctv", ",", 
      "jv", ",", "Z", ",", "ZC", ",", "gvs", ",", "zvs", ",", "zcvs"}], "}"}],
     ",", "\n", 
    RowBox[{
     RowBox[{"AA", "=", 
      RowBox[{"xt", "[", 
       RowBox[{"[", 
        RowBox[{"1", ";;", "124"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"AB", "=", 
      RowBox[{"xt", "[", 
       RowBox[{"[", 
        RowBox[{"125", ";;", "248"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"gtv", "=", "gv"}], ";", "\n", 
     RowBox[{"gctv", "=", "gv"}], ";", "\n", 
     RowBox[{"ztv", "=", "zv"}], ";", "\n", 
     RowBox[{"zctv", "=", "zv"}], ";", "\n", 
     RowBox[{"jv", "=", "arv"}], ";", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"jv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "+=", 
        RowBox[{
         RowBox[{"SPL", "[", 
          RowBox[{"AA", "+", 
           RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"43", ",", "1"}], "]"}], "]"}]}], "&"}], "/@", 
      RowBox[{"ArrayReshape", "[", 
       RowBox[{
        RowBox[{"acl", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "3"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gctv", "[", 
         RowBox[{"[", 
          RowBox[{"x", ",", "y"}], "]"}], "]"}], "=", 
        RowBox[{"ConjugateTranspose", "[", 
         RowBox[{"gv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", "1", ",", "6"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gtv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"gindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"gindex", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"gtv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"gindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"gindex", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], " ", ".",
          " ", 
         RowBox[{"GG", "[", 
          RowBox[{
           RowBox[{"SPL", "[", 
            RowBox[{"AA", "+", 
             RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
           RowBox[{"[", "x", "]"}], "]"}], "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gctv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"gindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"gindex", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"CGG", "[", 
          RowBox[{
           RowBox[{"SPL", "[", 
            RowBox[{"AA", "+", 
             RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
           RowBox[{"[", "x", "]"}], "]"}], "]"}], " ", ".", " ", 
         RowBox[{"gctv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"gindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"gindex", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"{", "\n", 
        RowBox[{
         RowBox[{
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"ZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"ZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"CZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"CZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n", 
        "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "30"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Z", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"gctv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}], " ", ".", " ", 
         RowBox[{"ztv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "1", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"z", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"ZC", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"zctv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}], " ", ".", " ", 
         RowBox[{"gtv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "1", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"z", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"jv", "=", 
      RowBox[{"jv", "*", "\[Lambda]"}]}], ";", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"SR", "[", 
         RowBox[{"#", ",", "Z", ",", "ZC", ",", "jv", ",", "xv"}], "]"}], 
        "&"}], "/@", "acl"}], "//", "Total"}]}]}], "\n", "]"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"ActionFK", "[", 
    RowBox[{"xt_", ",", "\[Gamma]_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "AA", ",", "AB", ",", "gtv", ",", "gctv", ",", "ztv", ",", "zctv", ",", 
       "jv", ",", "Z", ",", "ZC", ",", "gvs", ",", "zvs", ",", "zcvs"}], 
      "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"AA", "=", 
       RowBox[{"xt", "[", 
        RowBox[{"[", 
         RowBox[{"1", ";;", "124"}], "]"}], "]"}]}], ";", "\n", 
      RowBox[{"AB", "=", 
       RowBox[{"xt", "[", 
        RowBox[{"[", 
         RowBox[{"125", ";;", "248"}], "]"}], "]"}]}], ";", "\n", 
      RowBox[{"gtv", "=", "gv"}], ";", "\n", 
      RowBox[{"gctv", "=", "gv"}], ";", "\n", 
      RowBox[{"ztv", "=", "zv"}], ";", "\n", 
      RowBox[{"zctv", "=", "zv"}], ";", "\n", 
      RowBox[{"jv", "=", "arv"}], ";", "\n", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"jv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", 
            RowBox[{"#", "[", 
             RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "+=", 
         RowBox[{
          RowBox[{"SPL", "[", 
           RowBox[{"AA", "+", 
            RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"43", ",", "1"}], "]"}], "]"}]}], "&"}], "/@", 
       RowBox[{"ArrayReshape", "[", 
        RowBox[{
         RowBox[{"acl", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"6", ",", "3"}], "}"}]}], "]"}]}], ";", "\n", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"gctv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}], "=", 
         RowBox[{"ConjugateTranspose", "[", 
          RowBox[{"gv", "[", 
           RowBox[{"[", 
            RowBox[{"x", ",", "y"}], "]"}], "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "1", ",", "6"}], "}"}]}], "]"}], ";", "\n", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"gtv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"gindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"gindex", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
         RowBox[{
          RowBox[{"gtv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"gindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"gindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], " ", 
          ".", " ", 
          RowBox[{"GG", "[", 
           RowBox[{
            RowBox[{"SPL", "[", 
             RowBox[{"AA", "+", 
              RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
            RowBox[{"[", "x", "]"}], "]"}], "]"}]}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"gctv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"gindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"gindex", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
         RowBox[{
          RowBox[{"CGG", "[", 
           RowBox[{
            RowBox[{"SPL", "[", 
             RowBox[{"AA", "+", 
              RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
            RowBox[{"[", "x", "]"}], "]"}], "]"}], " ", ".", " ", 
          RowBox[{"gctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"gindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"gindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}]}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{"{", "\n", 
         RowBox[{
          RowBox[{
           RowBox[{"ztv", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{
               RowBox[{"Position", "[", 
                RowBox[{"Sid", ",", 
                 RowBox[{"zindex", "[", 
                  RowBox[{"[", 
                   RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
              RowBox[{"zindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
              RowBox[{"zindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
           RowBox[{"ZV", "[", 
            RowBox[{
             RowBox[{"zv", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Position", "[", 
                  RowBox[{"Sid", ",", 
                   RowBox[{"zindex", "[", 
                    RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{"SPL", "[", 
               RowBox[{"AA", "+", 
                RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
          RowBox[{
           RowBox[{"ztv", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{
               RowBox[{"Position", "[", 
                RowBox[{"Sid", ",", 
                 RowBox[{"zindex", "[", 
                  RowBox[{"[", 
                   RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
              RowBox[{"zindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
              RowBox[{"zindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
           RowBox[{"ZV", "[", 
            RowBox[{
             RowBox[{"zv", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Position", "[", 
                  RowBox[{"Sid", ",", 
                   RowBox[{"zindex", "[", 
                    RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{"SPL", "[", 
               RowBox[{"AA", "+", 
                RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
          RowBox[{
           RowBox[{"zctv", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{
               RowBox[{"Position", "[", 
                RowBox[{"Sid", ",", 
                 RowBox[{"zindex", "[", 
                  RowBox[{"[", 
                   RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
              RowBox[{"zindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
              RowBox[{"zindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
           RowBox[{"CZV", "[", 
            RowBox[{
             RowBox[{"zv", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Position", "[", 
                  RowBox[{"Sid", ",", 
                   RowBox[{"zindex", "[", 
                    RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{"SPL", "[", 
               RowBox[{"AA", "+", 
                RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
          RowBox[{
           RowBox[{"zctv", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{
               RowBox[{"Position", "[", 
                RowBox[{"Sid", ",", 
                 RowBox[{"zindex", "[", 
                  RowBox[{"[", 
                   RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
              RowBox[{"zindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
              RowBox[{"zindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
           RowBox[{"CZV", "[", 
            RowBox[{
             RowBox[{"zv", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Position", "[", 
                  RowBox[{"Sid", ",", 
                   RowBox[{"zindex", "[", 
                    RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{"SPL", "[", 
               RowBox[{"AA", "+", 
                RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n",
          "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "30"}], "}"}]}], "]"}], ";", "\n", 
      RowBox[{"Z", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"gctv", "[", 
           RowBox[{"[", 
            RowBox[{"x", ",", "y"}], "]"}], "]"}], " ", ".", " ", 
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "1", ",", "6"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"z", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", "\n", 
      RowBox[{"ZC", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}], " ", ".", " ", 
          RowBox[{"gtv", "[", 
           RowBox[{"[", 
            RowBox[{"x", ",", "y"}], "]"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "1", ",", "6"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"z", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", "\n", 
      RowBox[{"jv", "=", 
       RowBox[{"jv", "*", "\[Lambda]"}]}], ";", "\n", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"SRx", "[", 
          RowBox[{
          "#", ",", "Z", ",", "ZC", ",", "jv", ",", "xv", ",", "\[Gamma]"}], 
          "]"}], "&"}], "/@", "acl"}], "//", "Total"}]}]}], "\n", "]"}]}], 
  "\n"}], "\n", 
 RowBox[{
  RowBox[{"ActionFF", "[", "xt_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "AA", ",", "AB", ",", "gtv", ",", "gctv", ",", "ztv", ",", "zctv", ",", 
      "jv", ",", "Z", ",", "ZC", ",", "gvs", ",", "zvs", ",", "zcvs"}], "}"}],
     ",", "\n", 
    RowBox[{
     RowBox[{"AA", "=", 
      RowBox[{"xt", "[", 
       RowBox[{"[", 
        RowBox[{"1", ";;", "124"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"AB", "=", 
      RowBox[{"xt", "[", 
       RowBox[{"[", 
        RowBox[{"125", ";;", "248"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"gtv", "=", "gv"}], ";", "\n", 
     RowBox[{"gctv", "=", "gv"}], ";", "\n", 
     RowBox[{"ztv", "=", "zv"}], ";", "\n", 
     RowBox[{"zctv", "=", "zv"}], ";", "\n", 
     RowBox[{"jv", "=", "arv"}], ";", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"jv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "+=", 
        RowBox[{
         RowBox[{"SPL", "[", 
          RowBox[{"AA", "+", 
           RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"43", ",", "1"}], "]"}], "]"}]}], "&"}], "/@", 
      RowBox[{"ArrayReshape", "[", 
       RowBox[{
        RowBox[{"acl", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "3"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gctv", "[", 
         RowBox[{"[", 
          RowBox[{"x", ",", "y"}], "]"}], "]"}], "=", 
        RowBox[{"ConjugateTranspose", "[", 
         RowBox[{"gv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", "1", ",", "6"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gtv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"gindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"gindex", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"gtv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"gindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"gindex", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], " ", ".",
          " ", 
         RowBox[{"GG", "[", 
          RowBox[{
           RowBox[{"SPL", "[", 
            RowBox[{"AA", "+", 
             RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
           RowBox[{"[", "x", "]"}], "]"}], "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gctv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"gindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"gindex", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"CGG", "[", 
          RowBox[{
           RowBox[{"SPL", "[", 
            RowBox[{"AA", "+", 
             RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
           RowBox[{"[", "x", "]"}], "]"}], "]"}], " ", ".", " ", 
         RowBox[{"gctv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"gindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"gindex", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"{", "\n", 
        RowBox[{
         RowBox[{
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"ZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"ZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"CZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"CZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n", 
        "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "30"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Z", "=", 
      RowBox[{"Chop", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"gctv", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "y"}], "]"}], "]"}], " ", ".", " ", 
           RowBox[{"ztv", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"y", ",", "1", ",", "6"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"z", ",", "1", ",", "6"}], "}"}]}], "]"}], ",", 
        RowBox[{"10", "^", 
         RowBox[{"(", 
          RowBox[{"-", "14"}], ")"}]}]}], "]"}]}], ";", "\n", 
     RowBox[{"ZC", "=", 
      RowBox[{"Chop", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"zctv", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}], " ", ".", " ", 
           RowBox[{"gtv", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "y"}], "]"}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"y", ",", "1", ",", "6"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"z", ",", "1", ",", "6"}], "}"}]}], "]"}], ",", 
        RowBox[{"10", "^", 
         RowBox[{"(", 
          RowBox[{"-", "14"}], ")"}]}]}], "]"}]}], ";", "\n", 
     RowBox[{"jv", "=", 
      RowBox[{"jv", "*", "\[Lambda]"}]}], ";", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Z", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
       RowBox[{"ZC", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
       RowBox[{"Z", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "6", ",", "2"}], "]"}], "]"}], ",", 
       RowBox[{"ZC", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "6", ",", "2"}], "]"}], "]"}], ",", 
       RowBox[{"jv", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "6", ",", "2"}], "]"}], "]"}]}], "}"}]}]}], "\n", 
   "]"}]}], "\n", 
 RowBox[{
  RowBox[{"ActionFC", "[", "xt_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "AA", ",", "AB", ",", "gtv", ",", "gctv", ",", "ztv", ",", "zctv", ",", 
      "jv", ",", "Z", ",", "ZC", ",", "gvs", ",", "zvs", ",", "zcvs"}], "}"}],
     ",", "\n", 
    RowBox[{
     RowBox[{"AA", "=", 
      RowBox[{"xt", "[", 
       RowBox[{"[", 
        RowBox[{"1", ";;", "124"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"AB", "=", 
      RowBox[{"xt", "[", 
       RowBox[{"[", 
        RowBox[{"125", ";;", "248"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"gtv", "=", "gv"}], ";", "\n", 
     RowBox[{"gctv", "=", "gv"}], ";", "\n", 
     RowBox[{"ztv", "=", "zv"}], ";", "\n", 
     RowBox[{"zctv", "=", "zv"}], ";", "\n", 
     RowBox[{"jv", "=", "arv"}], ";", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"jv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "+=", 
        RowBox[{
         RowBox[{"SPL", "[", 
          RowBox[{"AA", "+", 
           RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"43", ",", "1"}], "]"}], "]"}]}], "&"}], "/@", 
      RowBox[{"ArrayReshape", "[", 
       RowBox[{
        RowBox[{"acl", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "3"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gctv", "[", 
         RowBox[{"[", 
          RowBox[{"x", ",", "y"}], "]"}], "]"}], "=", 
        RowBox[{"ConjugateTranspose", "[", 
         RowBox[{"gv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", "1", ",", "6"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gtv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"gindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"gindex", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"gtv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"gindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"gindex", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], " ", ".",
          " ", 
         RowBox[{"GG", "[", 
          RowBox[{
           RowBox[{"SPL", "[", 
            RowBox[{"AA", "+", 
             RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
           RowBox[{"[", "x", "]"}], "]"}], "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gctv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"gindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"gindex", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"CGG", "[", 
          RowBox[{
           RowBox[{"SPL", "[", 
            RowBox[{"AA", "+", 
             RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
           RowBox[{"[", "x", "]"}], "]"}], "]"}], " ", ".", " ", 
         RowBox[{"gctv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"gindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"gindex", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"{", "\n", 
        RowBox[{
         RowBox[{
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"ZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"ZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"CZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"CZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n", 
        "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "30"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Z", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"gctv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}], " ", ".", " ", 
         RowBox[{"ztv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "1", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"z", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"ZC", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"zctv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}], " ", ".", " ", 
         RowBox[{"gtv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "1", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"z", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"jv", "=", "jv"}], ";", "\n", 
     RowBox[{"{", 
      RowBox[{
      "Z", ",", "ZC", ",", "gtv", ",", "gctv", ",", "ztv", ",", "zctv", ",", 
       "jv"}], "}"}]}]}], "\n", "]"}]}], "\n"}], "Input",ExpressionUUID->\
"ede26012-893c-4b24-a2d0-3622ed756d6d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ActionDef", "[", "xt_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "AA", ",", "AB", ",", "gtv", ",", "gctv", ",", "ztv", ",", "zctv", ",", 
      "jv", ",", "Z", ",", "ZC", ",", "gvs", ",", "zvs", ",", "zcvs"}], "}"}],
     ",", "\n", 
    RowBox[{
     RowBox[{"AA", "=", 
      RowBox[{"xt", "[", 
       RowBox[{"[", 
        RowBox[{"1", ";;", "124"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"AB", "=", 
      RowBox[{"xt", "[", 
       RowBox[{"[", 
        RowBox[{"125", ";;", "248"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"gtv", "=", "gv"}], ";", "\n", 
     RowBox[{"gctv", "=", "gv"}], ";", "\n", 
     RowBox[{"ztv", "=", "zv"}], ";", "\n", 
     RowBox[{"zctv", "=", "zv"}], ";", "\n", 
     RowBox[{"jv", "=", "arv"}], ";", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"jv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "+=", 
        RowBox[{
         RowBox[{"SPL", "[", 
          RowBox[{"AA", "+", 
           RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"43", ",", "1"}], "]"}], "]"}]}], "&"}], "/@", 
      RowBox[{"ArrayReshape", "[", 
       RowBox[{
        RowBox[{"acl", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "3"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gctv", "[", 
         RowBox[{"[", 
          RowBox[{"x", ",", "y"}], "]"}], "]"}], "=", 
        RowBox[{"ConjugateTranspose", "[", 
         RowBox[{"gv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", "1", ",", "6"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gtv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"gindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"gindex", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"gtv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"gindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"gindex", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], " ", ".",
          " ", 
         RowBox[{"GG", "[", 
          RowBox[{
           RowBox[{"SPL", "[", 
            RowBox[{"AA", "+", 
             RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
           RowBox[{"[", "x", "]"}], "]"}], "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gctv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"gindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"gindex", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"CGG", "[", 
          RowBox[{
           RowBox[{"SPL", "[", 
            RowBox[{"AA", "+", 
             RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
           RowBox[{"[", "x", "]"}], "]"}], "]"}], " ", ".", " ", 
         RowBox[{"gctv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"gindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"gindex", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"{", "\n", 
        RowBox[{
         RowBox[{
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"ZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"ZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"CZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"CZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n", 
        "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "30"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Z", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"gctv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}], " ", ".", " ", 
         RowBox[{"ztv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "1", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"z", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"ZC", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"zctv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}], " ", ".", " ", 
         RowBox[{"gtv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "1", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"z", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"jv", "=", 
      RowBox[{"jv", "*", "\[Lambda]"}]}], ";", "\n", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"ActionS1", "[", 
               RowBox[{"#", ",", "Z", ",", "ZC", ",", "jv"}], "]"}], "&"}], "/@", 
             RowBox[{"acl", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "//", "Total"}], ")"}], "/", 
          RowBox[{"jv", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "4", ",", "2"}], "]"}], "]"}]}], "/", 
         "\[Gamma]"}], ")"}], "//", "Im"}], ")"}]}]}], "\n", "]"}]}]], "Input",\
ExpressionUUID->"65d20270-78c0-42de-85ee-2da7eceaa138"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ActionG", "[", "xt_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "AA", ",", "AB", ",", "gtv", ",", "gctv", ",", "ztv", ",", "zctv", ",", 
      "jv", ",", "Z", ",", "ZC", ",", "gvs", ",", "zvs", ",", "zcvs"}], "}"}],
     ",", "\n", 
    RowBox[{
     RowBox[{"AA", "=", 
      RowBox[{"xt", "[", 
       RowBox[{"[", 
        RowBox[{"1", ";;", "124"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"AB", "=", 
      RowBox[{"xt", "[", 
       RowBox[{"[", 
        RowBox[{"125", ";;", "248"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"gtv", "=", "gv"}], ";", "\n", 
     RowBox[{"gctv", "=", "gv"}], ";", "\n", 
     RowBox[{"ztv", "=", "zv"}], ";", "\n", 
     RowBox[{"zctv", "=", "zv"}], ";", "\n", 
     RowBox[{"jv", "=", "arv"}], ";", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"jv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "+=", 
        RowBox[{
         RowBox[{"SPL", "[", 
          RowBox[{"AA", "+", 
           RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"43", ",", "1"}], "]"}], "]"}]}], "&"}], "/@", 
      RowBox[{"ArrayReshape", "[", 
       RowBox[{
        RowBox[{"acl", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "3"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gctv", "[", 
         RowBox[{"[", 
          RowBox[{"x", ",", "y"}], "]"}], "]"}], "=", 
        RowBox[{"ConjugateTranspose", "[", 
         RowBox[{"gv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", "1", ",", "6"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gtv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"gindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"gindex", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
        RowBox[{"GG", "[", 
         RowBox[{
          RowBox[{"SPL", "[", 
           RowBox[{"AA", "+", 
            RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
          RowBox[{"[", "x", "]"}], "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gctv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"gindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"gindex", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
        RowBox[{"CGG", "[", 
         RowBox[{
          RowBox[{"SPL", "[", 
           RowBox[{"AA", "+", 
            RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
          RowBox[{"[", "x", "]"}], "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"{", "\n", 
        RowBox[{
         RowBox[{
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"ZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"ZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"CZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"CZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n", 
        "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "30"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"jv", "=", 
      RowBox[{"jv", "*", "\[Lambda]"}]}], ";", "\n", 
     RowBox[{"{", 
      RowBox[{"gtv", ",", "gctv", ",", "ztv", ",", "zctv"}], "}"}]}]}], "\n", 
   "]"}]}]], "Input",ExpressionUUID->"7ee17238-2c04-4443-8fd0-8ee77ca1b6b1"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Generate Boundary parameters and zero critical point", "Subtitle",ExpressionUUID->"eb72fb6f-d419-4333-87c1-51300c9829ff"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MOD", "[", "g_", "]"}], ":=", 
  RowBox[{"Chop", "[", 
   RowBox[{
    RowBox[{"Inverse", "[", 
     RowBox[{"ConjugateTranspose", "[", 
      RowBox[{"Inverse", "[", "g", "]"}], "]"}], "]"}], ",", 
    RowBox[{"10", "^", 
     RowBox[{"(", 
      RowBox[{"-", "14"}], ")"}]}]}], "]"}]}]], "Input",ExpressionUUID->\
"6e69d0b1-2de5-4a6f-b2c0-f5da41bf73ea"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"gv", ",", "zv", ",", "xv", ",", "arv", ",", "sol", ",", "ask"}], 
    "}"}], "=", 
   RowBox[{"Boundary", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", "ccr", ",", "3", 
     ",", "Vertex"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"gv", ",", "zv", ",", "xv", ",", "arv"}], "}"}], "=", 
   RowBox[{"Chop", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"gv", ",", "zv", ",", "xv", ",", "arv"}], "}"}], ",", 
     RowBox[{"10", "^", 
      RowBox[{"(", 
       RowBox[{"-", "14"}], ")"}]}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"gvs", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Inverse", "[", 
         RowBox[{
          RowBox[{"gv", "[", 
           RowBox[{"[", 
            RowBox[{"x", ",", 
             RowBox[{"Tfg", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], " ", 
          ".", " ", 
          RowBox[{"MatrixExp", "[", 
           RowBox[{"I", "*", "0.3", "*", 
            RowBox[{"PauliMatrix", "[", "1", "]"}]}], "]"}]}], "]"}], " ", 
        ".", " ", "#"}], "&"}], "/@", 
      RowBox[{"gv", "[", 
       RowBox[{"[", "x", "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"zvss", "=", 
   RowBox[{"Chop", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"MOD", "[", 
            RowBox[{
             RowBox[{"gv", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", 
                RowBox[{"Tfg", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], " ", 
             ".", " ", 
             RowBox[{"MatrixExp", "[", 
              RowBox[{"I", "*", "0.3", "*", 
               RowBox[{"PauliMatrix", "[", "1", "]"}]}], "]"}]}], "]"}], " ", 
           ".", " ", "#"}], "&"}], ",", 
         RowBox[{"zv", "[", 
          RowBox[{"[", "x", "]"}], "]"}], ",", 
         RowBox[{"{", "2", "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "3"}], "}"}]}], "]"}], ",", 
     RowBox[{"10", "^", 
      RowBox[{"(", 
       RowBox[{"-", "14"}], ")"}]}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"zvss", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"zvss", "[", 
         RowBox[{"[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "1"}], "]"}], "]"}], "!=", 
        "0"}], ",", 
       RowBox[{
        RowBox[{"zvss", "[", 
         RowBox[{"[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], "]"}], "/", 
        RowBox[{"zvss", "[", 
         RowBox[{"[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "1"}], "]"}], "]"}]}], ",", 
       RowBox[{"zvss", "[", 
        RowBox[{"[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "1", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1", ",", "6"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"gv", "=", "gvs"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"zv", "=", "zvss"}], ";"}]}], "Input",ExpressionUUID->"360d9a99-\
2e3b-44a9-8595-b020807f9f2f"],

Cell[BoxData[{
 RowBox[{"Deficient", "[", 
  RowBox[{"vid", ",", "Sid", ",", 
   RowBox[{"asd", "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}], "\n", 
 RowBox[{"ActionDef", "[", 
  RowBox[{"ConstantArray", "[", 
   RowBox[{"0", ",", "248"}], "]"}], "]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Chop", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"CrTests2", "[", 
           RowBox[{"x", ",", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "&"}], ",", 
         RowBox[{"Subsets", "[", 
          RowBox[{
           RowBox[{"vid", "/.", 
            RowBox[{
             RowBox[{"Sid", "[", 
              RowBox[{"[", "x", "]"}], "]"}], "->", "Nothing"}]}], ",", 
           RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "3"}], "}"}]}], "]"}], ",", 
     RowBox[{"10", "^", 
      RowBox[{"-", "16"}]}]}], "]"}], "//", "Flatten"}], "//", "Norm"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Chop", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"x", "==", "y"}], ",", "Nothing", ",", 
         RowBox[{"Map", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"CrTest1", "[", 
              RowBox[{
               RowBox[{"Sid", "[", 
                RowBox[{"[", "x", "]"}], "]"}], ",", 
               RowBox[{"Sid", "[", 
                RowBox[{"[", "y", "]"}], "]"}], ",", "#"}], "]"}], "}"}], 
            "&"}], ",", 
           RowBox[{"vid", "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"Sid", "[", 
                RowBox[{"[", "x", "]"}], "]"}], "->", "Nothing"}], ",", 
              RowBox[{
               RowBox[{"Sid", "[", 
                RowBox[{"[", "y", "]"}], "]"}], "->", "Nothing"}]}], 
             "}"}]}]}], "]"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", "1", ",", "3"}], "}"}]}], "]"}], ",", 
     RowBox[{"10", "^", 
      RowBox[{"-", "16"}]}]}], "]"}], "//", "Flatten"}], "//", "Norm"}], "\n", 
 RowBox[{"Chop", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"CrTests3", "[", 
          RowBox[{
           RowBox[{"Sid", "[", 
            RowBox[{"[", "x", "]"}], "]"}], ",", "#"}], "]"}], "&"}], ",", 
        RowBox[{"vid", "/.", 
         RowBox[{
          RowBox[{"Sid", "[", 
           RowBox[{"[", "x", "]"}], "]"}], "->", "Nothing"}]}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "1", ",", "3"}], "}"}]}], "]"}], "//", "Norm"}], ",", 
   RowBox[{"10", "^", 
    RowBox[{"-", "16"}]}]}], "]"}]}], "Input",ExpressionUUID->"f9af501b-0e56-\
4475-b064-11e7eb3b7042"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"DerSym", "[", 
    RowBox[{"x_", ",", "aa_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"aa1", "=", "aa"}], ",", "cmc"}], "}"}], ",", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{"aa1", "[", 
        RowBox[{"[", "x", "]"}], "]"}], "=", "cmc"}], ";", "\n", 
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"ActionF", "[", "aa1", "]"}], ",", "cmc"}], "]"}], "/.", 
       RowBox[{"cmc", "->", 
        RowBox[{"aa", "[", 
         RowBox[{"[", "x", "]"}], "]"}]}]}]}]}], "\n", "]"}]}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"DerSym2", "[", 
   RowBox[{"x_", ",", "y_", ",", "aa_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"aa1", "=", "aa"}], ",", "cmc1", ",", "cmc2", ",", "re", ",", 
      "res"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"x", "==", "y"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"aa1", "[", 
           RowBox[{"[", "x", "]"}], "]"}], "=", "cmc1"}], ";", 
         RowBox[{"re", "=", 
          RowBox[{
           RowBox[{"D", "[", 
            RowBox[{
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{"ActionF", "[", "aa1", "]"}], ",", "cmc1"}], "]"}], 
             ",", "cmc1"}], "]"}], "/.", 
           RowBox[{"cmc1", "->", 
            RowBox[{"aa", "[", 
             RowBox[{"[", "x", "]"}], "]"}]}]}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"aa1", "[", 
           RowBox[{"[", "x", "]"}], "]"}], "=", "cmc1"}], ";", 
         RowBox[{
          RowBox[{"aa1", "[", 
           RowBox[{"[", "y", "]"}], "]"}], "=", "cmc2"}], ";", 
         RowBox[{"re", "=", 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"ActionF", "[", "aa1", "]"}], ",", "cmc1"}], "]"}], ",",
             "cmc2"}], "]"}]}], ";"}], "}"}]}], "]"}], ";", "\n", "\t", 
     RowBox[{"re", "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"cmc1", "->", 
         RowBox[{"aa", "[", 
          RowBox[{"[", "x", "]"}], "]"}]}], ",", 
        RowBox[{"cmc2", "->", 
         RowBox[{"aa", "[", 
          RowBox[{"[", "y", "]"}], "]"}]}]}], "}"}]}]}]}], "\n", 
   "]"}]}], "\n"}], "Input",ExpressionUUID->"9c1e4f7e-4d8d-4783-83a2-\
aad19786b330"],

Cell[BoxData[
 RowBox[{
  RowBox[{"AAC", "=", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{"0", ",", "248"}], "]"}]}], ";"}]], "Input",ExpressionUUID->\
"cb3630a9-df28-4fa0-956a-5adb465dcd0f"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Compile action", "Subtitle",ExpressionUUID->"183256b6-6f11-482a-8a6f-10ac26617dc2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"FileExistsQ", "[", "tempfile6", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Get", "[", "tempfile6", "]"}], ";"}], "}"}], ",", 
    RowBox[{"{", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"t1", "=", "248"}], ";", 
        RowBox[{"t2", "=", "124"}], ";", "\n", 
        RowBox[{"AZ", "=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"ToExpression", "[", 
            RowBox[{"\"\<XX\>\"", "<>", 
             RowBox[{"ToString", "[", "x", "]"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "1", ",", "t1"}], "}"}]}], "]"}]}], ";", "\n", 
        RowBox[{"asxx", "=", 
         RowBox[{"ParallelTable", "[", 
          RowBox[{
           RowBox[{"D", "[", 
            RowBox[{
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{"ActionFK", "[", 
                RowBox[{"AZ", ",", "XC"}], "]"}], ",", 
               RowBox[{"AZ", "[", 
                RowBox[{"[", "x", "]"}], "]"}]}], "]"}], ",", 
             RowBox[{"AZ", "[", 
              RowBox[{"[", "y", "]"}], "]"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "1", ",", "t2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"y", ",", "1", ",", "t2"}], "}"}]}], "]"}]}], ";", "\n", 
        RowBox[{"asx1", "=", 
         RowBox[{"Flatten", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"Re", "[", 
              RowBox[{"ParallelTable", "[", 
               RowBox[{
                RowBox[{"D", "[", 
                 RowBox[{
                  RowBox[{"ActionFK", "[", 
                   RowBox[{"AZ", ",", "XC"}], "]"}], ",", 
                  RowBox[{"AZ", "[", 
                   RowBox[{"[", "x", "]"}], "]"}]}], "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{"x", ",", "1", ",", "t2"}], "}"}]}], "]"}], "]"}]}], 
            ",", 
            RowBox[{"Im", "[", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"D", "[", 
                RowBox[{
                 RowBox[{"ActionFK", "[", 
                  RowBox[{"AZ", ",", "XC"}], "]"}], ",", 
                 RowBox[{"AZ", "[", 
                  RowBox[{"[", "x", "]"}], "]"}]}], "]"}], ",", 
               RowBox[{"{", 
                RowBox[{"x", ",", "1", ",", "t2"}], "}"}]}], "]"}], "]"}]}], 
           "}"}], "]"}]}], ";", "\n", 
        RowBox[{"asx3", "=", 
         RowBox[{"ParallelTable", "[", 
          RowBox[{
           RowBox[{"D", "[", 
            RowBox[{
             RowBox[{"ActionFK", "[", 
              RowBox[{"AZ", ",", "XC"}], "]"}], ",", 
             RowBox[{"AZ", "[", 
              RowBox[{"[", "x", "]"}], "]"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "1", ",", "t2"}], "}"}]}], "]"}]}], ";", "\n", 
        RowBox[{
         RowBox[{"F3", "[", 
          RowBox[{"ppp_", ",", "xc_"}], "]"}], ":=", 
         RowBox[{
          RowBox[{"ActionFK", "[", 
           RowBox[{"AZ", ",", "xc"}], "]"}], "/.", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"AZ", "[", 
              RowBox[{"[", "a", "]"}], "]"}], "->", 
             RowBox[{"ppp", "[", 
              RowBox[{"[", "a", "]"}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"a", ",", "1", ",", "t1"}], "}"}]}], "]"}]}]}], ";", 
        "\n", 
        RowBox[{
         RowBox[{"F1", "[", 
          RowBox[{"ppp_", ",", "xc_"}], "]"}], ":=", 
         RowBox[{
          RowBox[{"asx1", "/.", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"AZ", "[", 
               RowBox[{"[", "a", "]"}], "]"}], "->", 
              RowBox[{"ppp", "[", 
               RowBox[{"[", "a", "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"a", ",", "1", ",", "t1"}], "}"}]}], "]"}]}], "/.", 
          RowBox[{"XC", "->", "xc"}]}]}], ";", "\n", 
        RowBox[{
         RowBox[{"F2", "[", 
          RowBox[{"ppp_", ",", "xc_"}], "]"}], ":=", 
         RowBox[{
          RowBox[{"asxx", "/.", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"AZ", "[", 
               RowBox[{"[", "a", "]"}], "]"}], "->", 
              RowBox[{"ppp", "[", 
               RowBox[{"[", "a", "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"a", ",", "1", ",", "t1"}], "}"}]}], "]"}]}], "/.", 
          RowBox[{"XC", "->", "xc"}]}]}], ";", "\n", 
        RowBox[{
         RowBox[{"F4", "[", 
          RowBox[{"ppp_", ",", "xc_"}], "]"}], ":=", 
         RowBox[{
          RowBox[{"asx3", "/.", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"AZ", "[", 
               RowBox[{"[", "a", "]"}], "]"}], "->", 
              RowBox[{"ppp", "[", 
               RowBox[{"[", "a", "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"a", ",", "1", ",", "t1"}], "}"}]}], "]"}]}], "/.", 
          RowBox[{"XC", "->", "xc"}]}]}], ";", "\n", 
        RowBox[{"P1", "=", 
         RowBox[{
          RowBox[{"Compile", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"ppp", ",", "_Real", ",", "1"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"xc", ",", "_Real"}], "}"}]}], "}"}], ",", 
            RowBox[{"Evaluate", "[", 
             RowBox[{"F1", "[", 
              RowBox[{"ppp", ",", "xc"}], "]"}], "]"}], ",", 
            RowBox[{"RuntimeAttributes", "->", 
             RowBox[{"{", "Listable", "}"}]}], ",", 
            RowBox[{"Parallelization", "->", "True"}], ",", 
            RowBox[{"CompilationTarget", "->", "\"\<C\>\""}]}], "]"}], "//", 
          "Quiet"}]}], ";", "\n", 
        RowBox[{"P2", "=", 
         RowBox[{
          RowBox[{"Compile", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"ppp", ",", "_Real", ",", "1"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"xc", ",", "_Real"}], "}"}]}], "}"}], ",", 
            RowBox[{"Evaluate", "[", 
             RowBox[{"F2", "[", 
              RowBox[{"ppp", ",", "xc"}], "]"}], "]"}], ",", 
            RowBox[{"RuntimeAttributes", "->", 
             RowBox[{"{", "Listable", "}"}]}], ",", 
            RowBox[{"Parallelization", "->", "True"}], ",", 
            RowBox[{"CompilationTarget", "->", "\"\<C\>\""}]}], "]"}], "//", 
          "Quiet"}]}], ";", "\n", 
        RowBox[{"P3", "=", 
         RowBox[{
          RowBox[{"Compile", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"ppp", ",", "_Real", ",", "1"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"xc", ",", "_Real"}], "}"}]}], "}"}], ",", 
            RowBox[{"Evaluate", "[", 
             RowBox[{"F3", "[", 
              RowBox[{"ppp", ",", "xc"}], "]"}], "]"}], ",", 
            RowBox[{"RuntimeAttributes", "->", 
             RowBox[{"{", "Listable", "}"}]}], ",", 
            RowBox[{"Parallelization", "->", "True"}], ",", 
            RowBox[{"CompilationTarget", "->", "\"\<C\>\""}]}], "]"}], "//", 
          "Quiet"}]}], ";", "\n", 
        RowBox[{"P4", "=", 
         RowBox[{
          RowBox[{"Compile", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"ppp", ",", "_Real", ",", "1"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"xc", ",", "_Real"}], "}"}]}], "}"}], ",", 
            RowBox[{"Evaluate", "[", 
             RowBox[{"F4", "[", 
              RowBox[{"ppp", ",", "xc"}], "]"}], "]"}], ",", 
            RowBox[{"RuntimeAttributes", "->", 
             RowBox[{"{", "Listable", "}"}]}], ",", 
            RowBox[{"Parallelization", "->", "True"}], ",", 
            RowBox[{"CompilationTarget", "->", "\"\<C\>\""}]}], "]"}], "//", 
          "Quiet"}]}], ";", "\n", 
        RowBox[{"DumpSave", "[", 
         RowBox[{"tempfile6", ",", 
          RowBox[{"{", 
           RowBox[{"P1", ",", "P2", ",", "P3", ",", "P4"}], "}"}]}], "]"}], 
        ";"}], "//", "Quite"}], ";"}], "\n", "}"}]}], "]"}], ";"}]], "Input",E\
xpressionUUID->"75b786fb-0a82-4ed7-bca2-ed00af936486"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Parity flip operation", "Subtitle",ExpressionUUID->"d07de350-6a2a-421d-8f16-0a6fd7a298e2"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"San", "[", "gv_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "\n", 
     RowBox[{
     "a1", ",", "a2", ",", "Ress", ",", "a3", ",", "x1", ",", "x2", ",", "y1",
       ",", "a4"}], " ", "\n", "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"a1", "=", 
      RowBox[{"Chop", "[", 
       RowBox[{"Inverse", "[", 
        RowBox[{
         RowBox[{"ConjugateTranspose", "[", "gv", "]"}], " ", ".", " ", 
         "gv"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"a2", "=", 
      RowBox[{"ZEXP", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x1", ",", "x2"}], "}"}], ",", 
        RowBox[{"{", "y1", "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"Ress", "=", 
      RowBox[{"NSolve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"ReIm", "[", 
          RowBox[{
           RowBox[{"Flatten", "[", 
            RowBox[{"(", 
             RowBox[{"a1", " ", ".", " ", 
              RowBox[{"ConjugateTranspose", "[", "a1", "]"}]}], ")"}], "]"}], 
           "[", 
           RowBox[{"[", 
            RowBox[{"2", ";;", "4"}], "]"}], "]"}], "]"}], "==", 
         RowBox[{"ComplexExpand", "[", 
          RowBox[{"ReIm", "[", 
           RowBox[{
            RowBox[{"Flatten", "[", 
             RowBox[{"a2", " ", ".", " ", 
              RowBox[{"ConjugateTranspose", "[", "a2", "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"2", ";;", "4"}], "]"}], "]"}], "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x1", ",", "x2", ",", "y1"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"a3", "=", 
      RowBox[{"a2", "/.", 
       RowBox[{"Ress", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\n", 
     RowBox[{"a4", "=", 
      RowBox[{"Chop", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"ConjugateTranspose", "[", "gv", "]"}], " ", ".", " ", 
          "gv"}], ")"}], " ", ".", " ", "a3"}], "]"}]}], ";", "\n", 
     RowBox[{"{", 
      RowBox[{"a3", ",", "a4"}], "}"}]}]}], "\n", "]"}]}], "\n", 
 RowBox[{
  RowBox[{"San2", "[", "gv_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "\n", 
     RowBox[{
     "a1", ",", "a2", ",", "Ress", ",", "a3", ",", "x1", ",", "x2", ",", "y1",
       ",", "a4"}], " ", "\n", "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"a1", "=", 
      RowBox[{"Chop", "[", 
       RowBox[{"Inverse", "[", 
        RowBox[{
         RowBox[{"ConjugateTranspose", "[", "gv", "]"}], " ", ".", " ", 
         "gv"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"a2", "=", 
      RowBox[{"ZEXP", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x1", ",", "x2"}], "}"}], ",", 
        RowBox[{"{", "y1", "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"Ress", "=", 
      RowBox[{"NSolve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"ReIm", "[", 
          RowBox[{
           RowBox[{"Flatten", "[", 
            RowBox[{"(", "a1", ")"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"2", ";;", "4"}], "]"}], "]"}], "]"}], "==", 
         RowBox[{"ComplexExpand", "[", 
          RowBox[{"ReIm", "[", 
           RowBox[{
            RowBox[{"Flatten", "[", "a2", " ", "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"2", ";;", "4"}], "]"}], "]"}], "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x1", ",", "x2", ",", "y1"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"a3", "=", 
      RowBox[{"a2", "/.", 
       RowBox[{"Ress", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\n", 
     RowBox[{"a4", "=", 
      RowBox[{"Chop", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"ConjugateTranspose", "[", "gv", "]"}], " ", ".", " ", 
          "gv"}], ")"}], " ", ".", " ", "a3"}], "]"}]}], ";", "\n", 
     RowBox[{"{", 
      RowBox[{"a3", ",", "a4"}], "}"}]}]}], "\n", "]"}]}]}], "Input",Expressio\
nUUID->"e1668392-0b61-4930-adba-510a1dbef910"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Zparity", "[", "b_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "\n", "zsc", "\n", "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"zsc", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"b", "[", 
            RowBox[{"[", "x", "]"}], "]"}], "==", "1"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"gv", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "y"}], "]"}], "]"}], " ", ".", " ", 
             RowBox[{"ConjugateTranspose", "[", 
              RowBox[{"gv", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "y"}], "]"}], "]"}], "]"}], " ", ".", " ", 
             "#"}], "&"}], "/@", 
           RowBox[{"zv", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "y"}], "]"}], "]"}]}], ",", 
          RowBox[{"zv", "[", 
           RowBox[{"[", 
            RowBox[{"x", ",", "y"}], "]"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"Chop", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"zsc", "[", 
             RowBox[{"[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "1"}], "]"}], "]"}], "!=",
             "0"}], ",", 
           RowBox[{
            RowBox[{"zsc", "[", 
             RowBox[{"[", 
              RowBox[{"t", ",", "x", ",", "y"}], "]"}], "]"}], "/", 
            RowBox[{"zsc", "[", 
             RowBox[{"[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "1"}], "]"}], "]"}]}], 
           ",", 
           RowBox[{"zsc", "[", 
            RowBox[{"[", 
             RowBox[{"t", ",", "x", ",", "y"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "1", ",", "6"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "1", ",", "6"}], "}"}]}], "]"}], ",", 
       RowBox[{"10", "^", 
        RowBox[{"(", 
         RowBox[{"-", "14"}], ")"}]}]}], "]"}]}]}], "\n", "]"}]}]], "Input",Ex\
pressionUUID->"ca7064ae-9da0-43de-ac5a-53e6e8971a20"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Gparity", "[", "k_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"a1", ",", "a2", ",", 
      RowBox[{"cfg", "=", 
       RowBox[{
        RowBox[{"k", "*", "Sfg"}], "/.", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], "->", "Nothing"}]}]}]}], "\n", 
     "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"a1", "=", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"San", "[", 
           RowBox[{"gv", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{
               RowBox[{"Position", "[", 
                RowBox[{"Sid", ",", 
                 RowBox[{"#", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "]"}], "[", 
          RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", "cfg"}], "]"}]}], ";", 
     "\n", 
     RowBox[{"a2", "=", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"k", "[", 
             RowBox[{"[", "y", "]"}], "]"}], "==", "1"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"Inverse", "@", 
              RowBox[{"ConjugateTranspose", "@", "#"}]}], "&"}], "/@", 
            RowBox[{"Chop", "[", 
             RowBox[{
              RowBox[{"gv", "[", 
               RowBox[{"[", "y", "]"}], "]"}], ",", 
              RowBox[{"10", "^", 
               RowBox[{"(", 
                RowBox[{"-", "14"}], ")"}]}]}], "]"}]}], ",", 
           RowBox[{"Chop", "[", 
            RowBox[{
             RowBox[{"gv", "[", 
              RowBox[{"[", "y", "]"}], "]"}], ",", 
             RowBox[{"10", "^", 
              RowBox[{"(", 
               RowBox[{"-", "14"}], ")"}]}]}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "1", ",", "3"}], "}"}]}], "]"}], "//", "Chop"}]}],
      ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"{", "\n", 
        RowBox[{
         RowBox[{
          RowBox[{"a2", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{
                 RowBox[{"cfg", "[", 
                  RowBox[{"[", "x", "]"}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{"cfg", "[", 
               RowBox[{"[", "x", "]"}], "]"}], "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"Chop", "[", 
           RowBox[{
            RowBox[{"a2", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{
                   RowBox[{"cfg", "[", 
                    RowBox[{"[", "x", "]"}], "]"}], "[", 
                   RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{
                RowBox[{"cfg", "[", 
                 RowBox[{"[", "x", "]"}], "]"}], "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], " ", ".", " ", 
            RowBox[{"a1", "[", 
             RowBox[{"[", "x", "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"a2", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{
                 RowBox[{"cfg", "[", 
                  RowBox[{"[", "x", "]"}], "]"}], "[", 
                 RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{"cfg", "[", 
               RowBox[{"[", "x", "]"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"Chop", "[", 
           RowBox[{
            RowBox[{"a2", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{
                   RowBox[{"cfg", "[", 
                    RowBox[{"[", "x", "]"}], "]"}], "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{
                RowBox[{"cfg", "[", 
                 RowBox[{"[", "x", "]"}], "]"}], "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], " ", ".", " ", 
            RowBox[{"a1", "[", 
             RowBox[{"[", "x", "]"}], "]"}]}], "]"}]}], ";"}], "\n", "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", 
         RowBox[{"Length", "[", "cfg", "]"}]}], "}"}]}], "]"}], ";", "\n", 
     "a2"}]}], "\n", "]"}]}]], "Input",ExpressionUUID->"31647ed7-0dac-4f79-\
bbd4-51a4ef9a4e60"],

Cell[BoxData[
 RowBox[{
  RowBox[{"AZ", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"ToExpression", "[", 
      RowBox[{"\"\<XX\>\"", "<>", 
       RowBox[{"ToString", "[", "x", "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1", ",", "124"}], "}"}]}], "]"}]}], ";"}]], "Input",E\
xpressionUUID->"783962bc-4e2b-4dfb-926d-c03c3d6a00f0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ParitySol", "[", "xx_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"as1", ",", "as2", ",", "ax1", ",", "AS"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"AS", "=", 
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"AZ", "[", 
         RowBox[{"[", 
          RowBox[{"1", ";;", "124"}], "]"}], "]"}], ",", 
        RowBox[{"ConstantArray", "[", 
         RowBox[{"0", ",", "124"}], "]"}]}], "]"}]}], ";", "\n", 
     RowBox[{"as1", "=", 
      RowBox[{
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"ComplexExpand", "[", 
             RowBox[{"ReIm", "[", 
              RowBox[{
               RowBox[{"Flatten", "[", 
                RowBox[{
                 RowBox[{"ActionG", "[", "AS", "]"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", 
                   RowBox[{
                    RowBox[{"Position", "[", 
                    RowBox[{"Sid", ",", 
                    RowBox[{"gindex", "[", 
                    RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                   RowBox[{"gindex", "[", 
                    RowBox[{"[", 
                    RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], 
                "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"1", ";;", "3"}], "]"}], "]"}], "]"}], "]"}], "==", 
            RowBox[{"Chop", "[", 
             RowBox[{"ReIm", "[", 
              RowBox[{
               RowBox[{"Flatten", "[", 
                RowBox[{
                 RowBox[{"Inverse", "[", 
                  RowBox[{"gv", "[", 
                   RowBox[{"[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Position", "[", 
                    RowBox[{"Sid", ",", 
                    RowBox[{"gindex", "[", 
                    RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                    RowBox[{"gindex", "[", 
                    RowBox[{"[", 
                    RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], 
                  "]"}], " ", ".", " ", 
                 RowBox[{
                  RowBox[{"Gparity", "[", "xx", "]"}], "[", 
                  RowBox[{"[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"Position", "[", 
                    RowBox[{"Sid", ",", 
                    RowBox[{"gindex", "[", 
                    RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                    RowBox[{"gindex", "[", 
                    RowBox[{"[", 
                    RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}]}], 
                "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"1", ";;", "3"}], "]"}], "]"}], "]"}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "1", ",", 
             RowBox[{"Length", "[", "gindex", "]"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"AZ", "[", 
          RowBox[{"[", 
           RowBox[{"1", ";;", "63"}], "]"}], "]"}], ",", "Reals"}], "]"}], 
       "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], ";", "\n", 
     RowBox[{"as2", "=", 
      RowBox[{
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"ComplexExpand", "[", 
             RowBox[{"ReIm", "[", 
              RowBox[{
               RowBox[{"ActionG", "[", "AS", "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"3", ",", 
                 RowBox[{"PSD", "[", 
                  RowBox[{"#", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
                 RowBox[{"#", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ",", 
                 RowBox[{"#", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ",", "2"}], "]"}], "]"}], 
              "]"}], "]"}], "==", 
            RowBox[{"ReIm", "[", 
             RowBox[{
              RowBox[{"Zparity", "[", "xx", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"PSD", "[", 
                 RowBox[{"#", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
                RowBox[{"#", "[", 
                 RowBox[{"[", "2", "]"}], "]"}], ",", 
                RowBox[{"#", "[", 
                 RowBox[{"[", "3", "]"}], "]"}], ",", "2"}], "]"}], "]"}], 
             "]"}]}], "&"}], "/@", "zindex"}], ",", "\n", 
         RowBox[{"AZ", "[", 
          RowBox[{"[", 
           RowBox[{"64", ";;", "123"}], "]"}], "]"}]}], "\n", "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], ";", "\n", 
     RowBox[{"ax1", "=", 
      RowBox[{"Chop", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Join", "[", 
          RowBox[{
           RowBox[{"AZ", "[", 
            RowBox[{"[", 
             RowBox[{"1", ";;", "123"}], "]"}], "]"}], ",", 
           RowBox[{"ConstantArray", "[", 
            RowBox[{"0", ",", "125"}], "]"}]}], "]"}], "/.", "as1"}], "/.", 
        "as2"}], "]"}]}], ";", "\n", 
     RowBox[{"ax1", "//", "Chop"}]}]}], "\n", "]"}]}]], "Input",ExpressionUUID\
->"33d6b85c-35c3-4df8-9225-e7339612d13e"],

Cell[BoxData[
 RowBox[{"cs1", "=", 
  RowBox[{"ArrayReshape", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"y", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"z", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"8", ",", "3"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\
"6621c92c-d2f0-46fc-b110-909e30d9d027"],

Cell[BoxData[
 RowBox[{
  RowBox[{"cs2", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"ParitySol", "[", "#", "]"}], "&"}], "/@", "cs1"}]}], 
  ";"}]], "Input",ExpressionUUID->"1aa148aa-7d93-4f1b-926b-97bd37289786"],

Cell[BoxData[
 RowBox[{"cs2", ";"}]], "Code",ExpressionUUID->"ea635cda-6926-4bf3-8787-1e22a83a1b9c"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Perturbative finder", "Subtitle",ExpressionUUID->"d9d5d9c8-f392-495e-b73c-03e8d73448d7"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"FindCrit", "[", 
    RowBox[{"ccs_", ",", "ga_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"TEMP", "=", "ccs"}], ",", 
       RowBox[{"iis", "=", "ccs"}], ",", "kk", ",", "kks", ",", "ks", ",", 
       "d1", ",", "d2", ",", "C1", ",", "C1s", ",", "cc1", ",", "a"}], "}"}], 
     ",", "\n", 
     RowBox[{
      RowBox[{"kk", "=", "0"}], ";", "\n", 
      RowBox[{"While", "[", 
       RowBox[{
        RowBox[{"kk", "<", "300"}], ",", 
        RowBox[{"{", "\n", 
         RowBox[{
          RowBox[{"d1", "=", 
           RowBox[{"P4", "[", 
            RowBox[{"TEMP", ",", "ga"}], "]"}]}], ";", "\n", 
          RowBox[{"d2", "=", 
           RowBox[{"P2", "[", 
            RowBox[{"TEMP", ",", "ga"}], "]"}]}], ";", "\n", 
          RowBox[{"kks", "=", 
           RowBox[{"Min", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Abs", "[", "#", "]"}], "&"}], "/@", 
             RowBox[{"Eigenvalues", "[", "d2", "]"}]}], "]"}]}], ";", "\n", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"kks", "<", 
             RowBox[{"10", "^", 
              RowBox[{"(", 
               RowBox[{"-", "6"}], ")"}]}]}], ",", 
            RowBox[{"Break", "[", "]"}]}], "]"}], ";", "\n", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"kks", ">", 
             RowBox[{"10", "^", 
              RowBox[{"(", 
               RowBox[{"-", "5"}], ")"}]}]}], ",", 
            RowBox[{"ks", "=", "0"}], ",", 
            RowBox[{"ks", "=", "1"}]}], "]"}], ";", "\n", 
          RowBox[{"C1", "=", 
           RowBox[{
            RowBox[{"Inverse", "[", "d2", "]"}], " ", ".", " ", "d1"}]}], ";",
           "\n", 
          RowBox[{"C1s", "=", 
           RowBox[{"Join", "[", 
            RowBox[{
             RowBox[{"Re", "[", "C1", "]"}], ",", 
             RowBox[{"Im", "[", "C1", "]"}]}], "]"}]}], ";", "\n", 
          RowBox[{"cc1", "=", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"Norm", "@", 
              RowBox[{"P4", "[", 
               RowBox[{"TEMP", ",", "ga"}], "]"}]}], ")"}], "-", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"Norm", "@", 
                RowBox[{"P4", "[", 
                 RowBox[{
                  RowBox[{"TEMP", "-", 
                   RowBox[{"C1s", "*", "#"}]}], ",", "ga"}], "]"}]}], "&"}], "/@", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"10", "^", 
                  RowBox[{"(", 
                   RowBox[{"-", "#"}], ")"}]}], "&"}], "/@", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"Range", "[", "6", "]"}], "-", "1"}], ")"}]}], 
               ")"}]}], ")"}]}]}], ";", "\n", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Max", "[", "cc1", "]"}], "<=", 
             RowBox[{"10", "^", 
              RowBox[{"(", 
               RowBox[{"-", "16"}], ")"}]}]}], ",", 
            RowBox[{"Break", "[", "]"}]}], "]"}], ";", "\n", 
          RowBox[{"a", "=", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"10", "^", 
                RowBox[{"(", 
                 RowBox[{"-", "#"}], ")"}]}], "&"}], "/@", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Range", "[", "6", "]"}], "-", "1"}], ")"}]}], ")"}], 
            "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"cc1", ",", 
                RowBox[{"Max", "[", "cc1", "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ";", 
          "\n", 
          RowBox[{"TEMP", "=", 
           RowBox[{"TEMP", "-", 
            RowBox[{"C1s", "*", "a"}]}]}], ";", "\n", 
          RowBox[{"kk", "++"}]}], "\n", "}"}]}], "]"}], ";", "\n", "TEMP"}]}],
     "\n", "]"}]}], "\n", "\n"}]], "Code",ExpressionUUID->"8998630f-68da-4eb5-\
aee6-2cc3ff5fa956"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"FindCrits", "[", 
    RowBox[{"ccs_", ",", "ga_", ",", "nn_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"is", ",", 
       RowBox[{"TEMP", "=", "ccs"}], ",", 
       RowBox[{"iis", "=", "ccs"}], ",", "kk", ",", "kks", ",", "ks", ",", 
       "d1", ",", "d2", ",", "C1", ",", "C1s", ",", "cc1", ",", "a"}], "}"}], 
     ",", "\n", 
     RowBox[{
      RowBox[{"kk", "=", "0"}], ";", "\n", 
      RowBox[{"is", "=", "1"}], ";", "\n", 
      RowBox[{"While", "[", 
       RowBox[{
        RowBox[{"kk", "<", "nn"}], ",", 
        RowBox[{"{", "\n", 
         RowBox[{
          RowBox[{"d1", "=", 
           RowBox[{"P4", "[", 
            RowBox[{"TEMP", ",", "ga"}], "]"}]}], ";", "\n", 
          RowBox[{"d2", "=", 
           RowBox[{"P2", "[", 
            RowBox[{"TEMP", ",", "ga"}], "]"}]}], ";", "\n", 
          RowBox[{"kks", "=", 
           RowBox[{"Min", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Abs", "[", "#", "]"}], "&"}], "/@", 
             RowBox[{"Eigenvalues", "[", "d2", "]"}]}], "]"}]}], ";", "\n", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"kks", "<", 
             RowBox[{"10", "^", 
              RowBox[{"(", 
               RowBox[{"-", "6"}], ")"}]}]}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Break", "[", "]"}], ";"}], "}"}]}], "]"}], ";", "\n", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"kks", ">", 
             RowBox[{"10", "^", 
              RowBox[{"(", 
               RowBox[{"-", "5"}], ")"}]}]}], ",", 
            RowBox[{"ks", "=", "0"}], ",", 
            RowBox[{"ks", "=", "1"}]}], "]"}], ";", "\n", 
          RowBox[{"C1", "=", 
           RowBox[{
            RowBox[{"Inverse", "[", "d2", "]"}], " ", ".", " ", "d1"}]}], ";",
           "\n", 
          RowBox[{"C1s", "=", 
           RowBox[{"Join", "[", 
            RowBox[{
             RowBox[{"Re", "[", "C1", "]"}], ",", 
             RowBox[{"Im", "[", "C1", "]"}]}], "]"}]}], ";", "\n", 
          RowBox[{"cc1", "=", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"Norm", "@", 
              RowBox[{"P4", "[", 
               RowBox[{"TEMP", ",", "ga"}], "]"}]}], ")"}], "-", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"Norm", "@", 
                RowBox[{"P4", "[", 
                 RowBox[{
                  RowBox[{"TEMP", "-", 
                   RowBox[{"C1s", "*", "#"}]}], ",", "ga"}], "]"}]}], "&"}], "/@", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"10", "^", 
                  RowBox[{"(", 
                   RowBox[{"-", "#"}], ")"}]}], "&"}], "/@", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"Range", "[", "6", "]"}], "-", "1"}], ")"}]}], 
               ")"}]}], ")"}]}]}], ";", "\n", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Max", "[", "cc1", "]"}], "<=", 
             RowBox[{"10", "^", 
              RowBox[{"(", 
               RowBox[{"-", "16"}], ")"}]}]}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Break", "[", "]"}], ";"}], "}"}]}], "]"}], ";", "\n", 
          RowBox[{"a", "=", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"10", "^", 
                RowBox[{"(", 
                 RowBox[{"-", "#"}], ")"}]}], "&"}], "/@", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Range", "[", "6", "]"}], "-", "1"}], ")"}]}], ")"}], 
            "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"cc1", ",", 
                RowBox[{"Max", "[", "cc1", "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ";", 
          "\n", 
          RowBox[{"TEMP", "=", 
           RowBox[{"TEMP", "-", 
            RowBox[{"C1s", "*", "a"}]}]}], ";", "\n", "\n", 
          RowBox[{"kk", "++"}]}], "\n", "}"}]}], "]"}], ";", "\n", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Norm", "[", 
          RowBox[{"P4", "[", 
           RowBox[{"TEMP", ",", "ga"}], "]"}], "]"}], "<", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "11"}], ")"}]}]}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"is", "=", "0"}], ";"}], "}"}]}], "]"}], ";", "\n", 
      RowBox[{"{", 
       RowBox[{"TEMP", ",", "is"}], "}"}]}]}], "\n", "]"}]}], "\n"}]], "Code",\
ExpressionUUID->"64f9fbe4-0bc8-46dd-a0fc-088acd925501"],

Cell[BoxData[
 RowBox[{
  RowBox[{"cx", "=", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"FindCrit", "[", 
       RowBox[{"#", ",", "\[Gamma]"}], "]"}], "&"}], ",", "cs2"}], "]"}]}], 
  ";"}]], "Code",ExpressionUUID->"6a847fe8-2cd8-4bd8-8419-5c4bb5327e9c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Norm", "@", 
    RowBox[{"P4", "[", 
     RowBox[{"#", ",", "\[Gamma]"}], "]"}]}], "&"}], "/@", "cx"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Norm", "@", 
    RowBox[{"P4", "[", 
     RowBox[{"#", ",", "\[Gamma]"}], "]"}]}], "&"}], "/@", "cs2"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"P3", "[", 
    RowBox[{"#", ",", "\[Gamma]"}], "]"}], "&"}], "/@", "cx"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"P3", "[", 
    RowBox[{"#", ",", "\[Gamma]"}], "]"}], "&"}], "/@", "cs2"}]}], "Code",Expr\
essionUUID->"80c1cf9a-011e-469d-a5d1-75bc8b378aea"],

Cell[BoxData[
 RowBox[{
  RowBox[{"DistanceMatrix", "[", 
   RowBox[{"Join", "[", "cx", "]"}], "]"}], "//", "MatrixForm"}]], "Code",Expr\
essionUUID->"d2c7019f-bd99-4f58-b5c0-8ccb09beaee6"]
}, Open  ]],

Cell[CellGroupData[{

Cell["SA flow function", "Subtitle",ExpressionUUID->"9b40c495-cb48-4f27-b32e-130036f3ebc8"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"RKF78", "[", 
    RowBox[{"a_", ",", "dt_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "DS1", ",", "DS2", ",", "DS3", ",", "DS4", ",", "DS5", ",", "DS6", ",", 
       "DS", ",", "DSP", ",", "RDAA", ",", "BB", ",", "HH", ",", "i"}], "}"}],
      ",", "\n", 
     RowBox[{
      RowBox[{"HH", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"41", "/", "840"}], ",", "0", ",", "0", ",", "0", ",", "0", 
         ",", 
         RowBox[{"34", "/", "105"}], ",", 
         RowBox[{"9", "/", "35"}], ",", 
         RowBox[{"9", "/", "35"}], ",", 
         RowBox[{"9", "/", "280"}], ",", 
         RowBox[{"9", "/", "280"}], ",", 
         RowBox[{"41", "/", "840"}], ",", "0", ",", "0"}], "}"}]}], ";", "\n", 
      RowBox[{"BB", "=", 
       RowBox[{"{", "\n", "\t", 
        RowBox[{
         RowBox[{"{", "0", "}"}], ",", "\n", "\t", 
         RowBox[{"{", 
          RowBox[{"2", "/", "27"}], "}"}], ",", "\n", "\t", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"1", "/", "36"}], ",", 
           RowBox[{"1", "/", "12"}]}], "}"}], ",", "\n", "\t", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"1", "/", "24"}], ",", "0", ",", 
           RowBox[{"1", "/", "8"}]}], "}"}], ",", "\n", "\t", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"20", "/", "48"}], ",", "0", ",", 
           RowBox[{
            RowBox[{"-", "75"}], "/", "48"}], ",", 
           RowBox[{"75", "/", "48"}]}], "}"}], ",", "\n", "\t", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"1", "/", "20"}], ",", "0", ",", "0", ",", 
           RowBox[{"5", "/", "20"}], ",", 
           RowBox[{"4", "/", "20"}]}], "}"}], ",", "\n", "\t", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "25"}], "/", "108"}], ",", "0", ",", "0", ",", 
           RowBox[{"125", "/", "108"}], ",", 
           RowBox[{
            RowBox[{"-", "260"}], "/", "108"}], ",", 
           RowBox[{"250", "/", "108"}]}], "}"}], ",", "\n", "\t", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"31", "/", "300"}], ",", "0", ",", "0", ",", "0", ",", 
           RowBox[{"61", "/", "225"}], ",", 
           RowBox[{
            RowBox[{"-", "2"}], "/", "9"}], ",", 
           RowBox[{"13", "/", "900"}]}], "}"}], ",", "\n", "\t", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "0", ",", 
           RowBox[{
            RowBox[{"-", "53"}], "/", "6"}], ",", 
           RowBox[{"704", "/", "45"}], ",", 
           RowBox[{
            RowBox[{"-", "107"}], "/", "9"}], ",", 
           RowBox[{"67", "/", "90"}], ",", "3"}], "}"}], ",", "\n", "\t", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "91"}], "/", "108"}], ",", "0", ",", "0", ",", 
           RowBox[{"23", "/", "108"}], ",", 
           RowBox[{
            RowBox[{"-", "976"}], "/", "135"}], ",", 
           RowBox[{"311", "/", "54"}], ",", 
           RowBox[{
            RowBox[{"-", "19"}], "/", "60"}], ",", 
           RowBox[{"17", "/", "6"}], ",", 
           RowBox[{
            RowBox[{"-", "1"}], "/", "12"}]}], "}"}], ",", "\n", "\t", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"2383", "/", "4100"}], ",", "0", ",", "0", ",", 
           RowBox[{
            RowBox[{"-", "341"}], "/", "164"}], ",", 
           RowBox[{"4496", "/", "1025"}], ",", 
           RowBox[{
            RowBox[{"-", "301"}], "/", "82"}], ",", 
           RowBox[{"2133", "/", "4100"}], ",", 
           RowBox[{"45", "/", "82"}], ",", 
           RowBox[{"45", "/", "164"}], ",", 
           RowBox[{"18", "/", "41"}]}], "}"}], ",", "\n", "\t", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"3", "/", "205"}], ",", "0", ",", "0", ",", "0", ",", "0", 
           ",", 
           RowBox[{
            RowBox[{"-", "6"}], "/", "41"}], ",", 
           RowBox[{
            RowBox[{"-", "3"}], "/", "205"}], ",", 
           RowBox[{
            RowBox[{"-", "3"}], "/", "41"}], ",", 
           RowBox[{"3", "/", "41"}], ",", 
           RowBox[{"6", "/", "41"}], ",", "0"}], "}"}], ",", "\n", "\t", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "1777"}], "/", "4100"}], ",", "0", ",", "0", ",", 
           RowBox[{
            RowBox[{"-", "341"}], "/", "164"}], ",", 
           RowBox[{"4496", "/", "1025"}], ",", 
           RowBox[{
            RowBox[{"-", "289"}], "/", "82"}], ",", 
           RowBox[{"2193", "/", "4100"}], ",", 
           RowBox[{"51", "/", "82"}], ",", 
           RowBox[{"33", "/", "164"}], ",", 
           RowBox[{"12", "/", "41"}], ",", "0", ",", "1"}], "}"}]}], "\n", 
        "}"}]}], ";", "\n", 
      RowBox[{"DS", "=", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{"a", ",", "13"}], "]"}]}], ";", "\n", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"i", "=", "1"}], ",", 
        RowBox[{"i", "<", "14"}], ",", 
        RowBox[{"i", "++"}], ",", 
        RowBox[{"{", "\n", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"i", "==", "1"}], ",", 
            RowBox[{"RDAA", "=", "a"}], ",", 
            RowBox[{"RDAA", "=", 
             RowBox[{"a", "+", 
              RowBox[{"dt", "*", 
               RowBox[{
                RowBox[{"BB", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], " ", ".", " ", 
                RowBox[{"Table", "[", 
                 RowBox[{
                  RowBox[{"DS", "[", 
                   RowBox[{"[", "x", "]"}], "]"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"x", ",", "1", ",", 
                    RowBox[{"i", "-", "1"}]}], "}"}]}], "]"}]}]}]}]}]}], 
           "]"}], ";", "\n", 
          RowBox[{
           RowBox[{"DS", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "=", 
           RowBox[{"P1", "[", 
            RowBox[{"RDAA", ",", "\[Gamma]"}], "]"}]}], ";"}], "\n", "}"}]}], 
       "]"}], ";", "\n", 
      RowBox[{"DS1", "=", 
       RowBox[{"dt", "*", 
        RowBox[{"(", 
         RowBox[{"HH", " ", ".", " ", "DS"}], ")"}]}]}], ";", "\n", 
      RowBox[{"DSP", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "41"}], "/", "840"}], ")"}], "*", "dt", "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"DS", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "+", 
          RowBox[{"DS", "[", 
           RowBox[{"[", "11", "]"}], "]"}], "-", 
          RowBox[{"DS", "[", 
           RowBox[{"[", "12", "]"}], "]"}], "-", 
          RowBox[{"DS", "[", 
           RowBox[{"[", "13", "]"}], "]"}]}], ")"}]}]}], ";", "\n", 
      RowBox[{"{", 
       RowBox[{"DS1", ",", "DSP"}], "}"}]}]}], "\n", "]"}]}], "\n"}]], "Code",\
ExpressionUUID->"db148ed8-5faa-4b54-a083-67c5ead619ed"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"STERKFS", "[", 
    RowBox[{"STE_", ",", "a_", ",", "dt_", ",", "e1_", ",", "e2_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"dtt", "=", "dt"}], ",", "a1", ",", "a2", ",", "a3", ",", "DD",
        ",", "dtp", ",", "dt3", ",", "STS", ",", "pp", ",", "ns"}], "}"}], 
     ",", "\n", 
     RowBox[{
      RowBox[{"STS", "=", 
       RowBox[{"STE", "+", "1"}]}], ";", 
      RowBox[{"a1", "=", 
       RowBox[{"RKF78", "[", 
        RowBox[{"a", ",", "dtt"}], "]"}]}], ";", 
      RowBox[{"ns", "=", "1"}], ";", 
      RowBox[{"While", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Abs", "[", 
           RowBox[{
            RowBox[{"Im", "[", 
             RowBox[{"P3", "[", 
              RowBox[{"a", ",", "\[Gamma]"}], "]"}], "]"}], "-", 
            RowBox[{"Im", "[", 
             RowBox[{"P3", "[", 
              RowBox[{
               RowBox[{"a", "+", 
                RowBox[{"a1", "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[Gamma]"}], "]"}], 
             "]"}]}], "]"}], ">", 
          RowBox[{"10", "^", 
           RowBox[{"(", 
            RowBox[{"-", "2"}], ")"}]}]}], "&&", 
         RowBox[{"ns", "<", "3"}]}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ns", "+=", "1"}], ";", 
          RowBox[{"dtt", "*=", "0.1"}], ";", 
          RowBox[{"a1", "=", 
           RowBox[{"RKF78", "[", 
            RowBox[{"a", ",", "dtt"}], "]"}]}], ";"}], "}"}]}], "]"}], ";", 
      "\n", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"ns", ">=", "3"}], ",", 
        RowBox[{"{", "\n", 
         RowBox[{
          RowBox[{"DD", "=", 
           RowBox[{"a1", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], ";", "\n", 
          RowBox[{"dtp", "=", "dt"}], ";", "\n", 
          RowBox[{"dt3", "=", "dt"}], ";", "\n", 
          RowBox[{"STS", "=", "256"}], ";"}], "\n", "}"}], ",", 
        RowBox[{"{", "\n", 
         RowBox[{
          RowBox[{"a2", "=", 
           RowBox[{
            RowBox[{"Norm", "[", 
             RowBox[{
              RowBox[{"a1", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "/", 
              RowBox[{"(", 
               RowBox[{"ConstantArray", "[", 
                RowBox[{"e1", ",", "248"}], "]"}], ")"}]}], "]"}], "/", 
            RowBox[{"Sqrt", "[", "248", "]"}]}]}], ";", "\n", "\t", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"a2", "<=", "1"}], "||", 
             RowBox[{"STS", ">", "10"}]}], ",", 
            RowBox[{"{", "\n", 
             RowBox[{
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Abs", "[", "a2", "]"}], "<", 
                 RowBox[{"10", "^", 
                  RowBox[{"(", 
                   RowBox[{"-", "40"}], ")"}]}]}], ",", 
                RowBox[{"{", "\n", 
                 RowBox[{
                  RowBox[{"dtp", "=", "dtt"}], ";"}], "\n", "}"}], ",", 
                RowBox[{"{", "\n", 
                 RowBox[{
                  RowBox[{"dtp", "=", 
                   RowBox[{"dtt", "*", 
                    RowBox[{"Min", "[", 
                    RowBox[{"4", ",", 
                    RowBox[{"Max", "[", 
                    RowBox[{
                    RowBox[{"1", "/", "8"}], ",", 
                    RowBox[{"0.8", "*", 
                    RowBox[{"a2", "^", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "/", "7"}], ")"}]}]}]}], "]"}]}], 
                    "]"}]}]}], ";"}], "\n", "}"}]}], "]"}], ";", "\n", 
              RowBox[{"DD", "=", 
               RowBox[{"a1", "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], ";", "\n", 
              RowBox[{"dt3", "=", "dtt"}], ";", "\n", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"dtp", "<", 
                 RowBox[{"10", "^", 
                  RowBox[{"(", 
                   RowBox[{"-", "30"}], ")"}]}]}], ",", "\n", 
                RowBox[{
                 RowBox[{"DD", "=", 
                  RowBox[{"a1", "[", 
                   RowBox[{"[", "1", "]"}], "]"}]}], ";", "\n", 
                 RowBox[{"dtp", "=", "dt"}], ";", "\n", 
                 RowBox[{"dt3", "=", "dt"}], ";", "\n", 
                 RowBox[{"STS", "=", "256"}], ";"}]}], "\n", "]"}], ";"}], 
             "\n", "}"}], ",", 
            RowBox[{"{", "\n", 
             RowBox[{
              RowBox[{"dtp", "=", 
               RowBox[{"dtt", "*", "0.8", "*", 
                RowBox[{"a2", "^", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "/", "7"}], ")"}]}]}]}], ";", "\n", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"DD", ",", "dtp", ",", "dt3", ",", "STS"}], "}"}], 
               "=", 
               RowBox[{"STERKFS", "[", 
                RowBox[{"STS", ",", "a", ",", "dtp", ",", "e1", ",", "e2"}], 
                "]"}]}]}], "\n", "}"}]}], "]"}], ";"}], "\n", "}"}]}], "]"}], 
      ";", "\n", 
      RowBox[{"{", 
       RowBox[{"DD", ",", "dtp", ",", "dt3", ",", "STS"}], "}"}]}]}], "\n", 
    "]"}]}], "\n"}]], "Code",ExpressionUUID->"1a35660a-974e-4b75-8629-\
426a5c8b4e1a"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"LefsMHt", "[", 
    RowBox[{"aax_", ",", "HESS_", ",", "TT_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", "\n", 
      RowBox[{
       RowBox[{"tes", "=", "aax"}], ",", "\n", "tess", ",", "\n", 
       RowBox[{"e1", "=", 
        RowBox[{"10", "^", 
         RowBox[{"(", 
          RowBox[{"-", "14"}], ")"}]}]}], ",", "\n", 
       RowBox[{"e2", "=", 
        RowBox[{"10", "^", 
         RowBox[{"(", 
          RowBox[{"-", "12"}], ")"}]}]}], ",", "\n", "px", ",", "\n", 
       RowBox[{"TY", "=", "0"}], ",", "\n", "DDD", ",", "\n", 
       RowBox[{"HSD", "=", "HESS"}], ",", "\n", 
       RowBox[{"dt", "=", 
        RowBox[{"TT", "/", "100"}]}], ",", "\n", 
       RowBox[{"STE", "=", "1"}], ",", "\n", "DDS", ",", "\n", "HH", ",", 
       "\n", "kps", ",", "\n", "i", ",", "TTT", ",", "dts"}], "\n", "}"}], 
     ",", "\n", 
     RowBox[{
      RowBox[{"DDD", "=", 
       RowBox[{"{", 
        RowBox[{"aax", ",", "dt", ",", "e1", ",", "e2", ",", "STE"}], "}"}]}],
       ";", "\n", 
      RowBox[{"DDS", "=", 
       RowBox[{"STERKFS", "[", 
        RowBox[{
         RowBox[{"DDD", "[", 
          RowBox[{"[", "5", "]"}], "]"}], ",", 
         RowBox[{"DDD", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"DDD", "[", 
          RowBox[{"[", "2", "]"}], "]"}], ",", 
         RowBox[{"DDD", "[", 
          RowBox[{"[", "3", "]"}], "]"}], ",", 
         RowBox[{"DDD", "[", 
          RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], ";", "\n", 
      RowBox[{"While", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"TY", "<", "TT"}], "&&", 
         RowBox[{
          RowBox[{"DDS", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "!=", "256"}]}], ",", "\n", 
        RowBox[{"{", "\n", 
         RowBox[{
          RowBox[{
           RowBox[{"DDD", "[", 
            RowBox[{"[", "5", "]"}], "]"}], "=", "1"}], ";", "\n", 
          RowBox[{"DDS", "=", 
           RowBox[{"STERKFS", "[", 
            RowBox[{
             RowBox[{"DDD", "[", 
              RowBox[{"[", "5", "]"}], "]"}], ",", 
             RowBox[{"DDD", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"DDD", "[", 
              RowBox[{"[", "2", "]"}], "]"}], ",", 
             RowBox[{"DDD", "[", 
              RowBox[{"[", "3", "]"}], "]"}], ",", 
             RowBox[{"DDD", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], ";", "\n", 
          RowBox[{"tes", "=", 
           RowBox[{"DDD", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], ";", "\n", 
          RowBox[{
           RowBox[{"DDD", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "+=", 
           RowBox[{"DDS", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], ";", "\n", 
          RowBox[{"dt", "=", 
           RowBox[{"DDS", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], ";", "\n", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"dt", "<", 
             RowBox[{"TT", "*", 
              RowBox[{"10", "^", 
               RowBox[{"(", 
                RowBox[{"-", "16"}], ")"}]}]}]}], ",", 
            RowBox[{
             RowBox[{"DDS", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "=", "256"}]}], "]"}], ";", 
          "\n", 
          RowBox[{
           RowBox[{"DDD", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "=", 
           RowBox[{"DDS", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], ";", "\n", 
          RowBox[{"HH", "=", 
           RowBox[{"P2", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"DDD", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "-", 
              RowBox[{
               RowBox[{"DDS", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "/", "2"}]}], ",", 
             "\[Gamma]"}], "]"}]}], ";", "\n", 
          RowBox[{"HSD", "+=", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"(", 
              RowBox[{"Conjugate", "[", 
               RowBox[{"HH", " ", ".", " ", "HSD"}], "]"}], ")"}]}], "*", 
            "dt"}]}], ";", "\n", 
          RowBox[{"TY", "+=", "dt"}], ";"}], "\n", "}"}]}], "]"}], ";", "\n", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"DDS", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "!=", "256"}], ",", 
        RowBox[{"{", "\n", 
         RowBox[{
          RowBox[{"TTT", "=", "TY"}], ";", "\n", 
          RowBox[{"dts", "=", "dt"}], ";", "\n", 
          RowBox[{"TY", "=", 
           RowBox[{"TY", "-", "dt"}]}], ";", "\n", 
          RowBox[{"dt", "=", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"TT", "-", "TY"}], ")"}], "/", "10"}]}], ";", "\n", 
          RowBox[{"For", "[", 
           RowBox[{
            RowBox[{"i", "=", "1"}], ",", 
            RowBox[{"i", "<", "11"}], ",", 
            RowBox[{"i", "++"}], ",", 
            RowBox[{"{", "\n", 
             RowBox[{
              RowBox[{"tess", "=", 
               RowBox[{
                RowBox[{"RKF78", "[", 
                 RowBox[{"tes", ",", "dt"}], "]"}], "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], ";", "\n", 
              RowBox[{"tes", "+=", "tess"}], ";", "\n", 
              RowBox[{"HH", "=", 
               RowBox[{"P2", "[", 
                RowBox[{
                 RowBox[{"tes", "-", 
                  RowBox[{"tess", "/", "2"}]}], ",", "\[Gamma]"}], "]"}]}], 
              ";", "\n", 
              RowBox[{"HSD", "+=", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"(", 
                  RowBox[{"Conjugate", "[", 
                   RowBox[{"HH", " ", ".", " ", "HSD"}], "]"}], ")"}]}], "*", 
                "dt"}]}], ";", "\n", 
              RowBox[{"TY", "+=", "dt"}], ";"}], "\n", "}"}]}], "]"}], ";", 
          "\n", 
          RowBox[{"kps", "=", "1"}], ";"}], "\n", "}"}], ",", 
        RowBox[{"{", "\n", 
         RowBox[{
          RowBox[{"HSD", "=", 
           RowBox[{"{", 
            RowBox[{"{", "1", "}"}], "}"}]}], ";", "\n", 
          RowBox[{"kps", "=", "0"}], ";"}], "\n", "}"}]}], "]"}], ";", "\n", 
      RowBox[{"{", 
       RowBox[{"kps", ",", 
        RowBox[{"Det", "[", "HSD", "]"}], ",", "aax", ",", "tes", ",", "TY", 
        ",", "dt"}], "}"}]}]}], "\n", "]"}]}], "\n", "\n"}]], "Code",Expressio\
nUUID->"3cda3a12-ed86-45b3-a898-ffdfff514fe9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"HESS", "=", 
   RowBox[{"DiagonalMatrix", "[", 
    RowBox[{"ConstantArray", "[", 
     RowBox[{"1", ",", "124"}], "]"}], "]"}]}], ";"}]], "Code",ExpressionUUID->\
"815564c9-eb18-4514-9f23-3e2b7ea19536"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Slice sampling functions", "Subtitle",ExpressionUUID->"7761eda5-aac8-4e19-b409-f94fcb8a1dac"],

Cell[BoxData[
 RowBox[{
  RowBox[{"cxx", "[", 
   RowBox[{"xx1_", ",", "NN1_"}], "]"}], ":=", 
  RowBox[{"RandomSample", "[", 
   RowBox[{
    RowBox[{"Delete", "[", 
     RowBox[{
      RowBox[{"Range", "[", 
       RowBox[{"1", ",", "NN1"}], "]"}], ",", "xx1"}], "]"}], ",", "2"}], 
   "]"}]}]], "Code",ExpressionUUID->"98bde453-59fb-46ea-9bf2-39e0d7aca00d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"vv", "[", 
   RowBox[{"x_", ",", "w_", ",", "XX0_", ",", "NN_"}], "]"}], ":=", 
  RowBox[{"N", "[", 
   RowBox[{"w", "*", 
    RowBox[{
     RowBox[{"Differences", "[", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"XX0", "[", 
          RowBox[{"[", "#", "]"}], "]"}], "&"}], "/@", 
        RowBox[{"cxx", "[", 
         RowBox[{"x", ",", "NN"}], "]"}]}], ")"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}]], "Code",ExpressionUUID->\
"26f058aa-3456-4fc0-b9c5-d16bec6c48b3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"gb", "=", "2"}], ";", 
  RowBox[{"ga", "=", "0.0001"}], ";"}]], "Code",ExpressionUUID->"587c75d9-\
067f-49d5-aa95-241a87e5fa42"],

Cell[BoxData[
 RowBox[{
  RowBox[{"GMM", "[", 
   RowBox[{"w_", ",", "pm_", ",", "pc_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"t1", ",", "i", ",", "j", ",", "nk", ",", "n1", ",", "n2", ",", 
      RowBox[{"t", "=", "0"}]}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"t1", "=", 
      RowBox[{"Length", "[", "pm", "]"}]}], ";", "\n", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"i", ",", "j"}], "}"}], "=", 
      RowBox[{"RandomChoice", "[", 
       RowBox[{
        RowBox[{"Range", "[", 
         RowBox[{"1", ",", "t1"}], "]"}], ",", "2"}], "]"}]}], ";", "\n", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"i", "==", "j"}], ",", 
       RowBox[{"{", "\n", 
        RowBox[{
         RowBox[{"nk", "=", 
          RowBox[{"2", "*", "w", "*", 
           RowBox[{"RandomVariate", "[", 
            RowBox[{"MultinormalDistribution", "[", 
             RowBox[{"pc", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}]}], ";", "\n", 
         RowBox[{"t", "=", "0"}], ";"}], "\n", "}"}], ",", 
       RowBox[{"{", "\n", 
        RowBox[{
         RowBox[{"n1", "=", 
          RowBox[{"RandomVariate", "[", 
           RowBox[{"MultinormalDistribution", "[", 
            RowBox[{
             RowBox[{"pm", "[", 
              RowBox[{"[", "i", "]"}], "]"}], ",", 
             RowBox[{"ga", "*", 
              RowBox[{"pc", "[", 
               RowBox[{"[", "i", "]"}], "]"}]}]}], "]"}], "]"}]}], ";", "\n", 
         RowBox[{"n2", "=", 
          RowBox[{"RandomVariate", "[", 
           RowBox[{"MultinormalDistribution", "[", 
            RowBox[{
             RowBox[{"pm", "[", 
              RowBox[{"[", "j", "]"}], "]"}], ",", 
             RowBox[{"ga", "*", 
              RowBox[{"pc", "[", 
               RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}], "]"}]}], ";", "\n", 
         RowBox[{"nk", "=", 
          RowBox[{"gb", "*", 
           RowBox[{"(", 
            RowBox[{"n1", "-", "n2"}], ")"}]}]}], ";", "\n", 
         RowBox[{"t", "=", "1"}], ";"}], "\n", "}"}]}], "]"}], ";", "\n", 
     RowBox[{"{", 
      RowBox[{"nk", ",", "t"}], "}"}]}]}], "\n", "]"}]}]], "Code",ExpressionUU\
ID->"c2622285-57f3-4034-ab2e-73840ebedde4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Slice1", "[", 
   RowBox[{"x0_", ",", "t0_", ",", "nx_", ",", 
    RowBox[{"ns_:", "100"}]}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"TEMP1", ",", "GT", ",", "Y", ",", "G", ",", "L", ",", "R", ",", 
      RowBox[{"kk", "=", "1"}], ",", 
      RowBox[{"ks", "=", "1"}], ",", 
      RowBox[{"N1", "=", "1"}], ",", 
      RowBox[{"N2", "=", "1"}], ",", 
      RowBox[{"N3", "=", "1"}], ",", "xx1", ",", "y1", ",", "r1", ",", "r2", 
      ",", 
      RowBox[{"nn", "=", "nx"}], ",", 
      RowBox[{"np", "=", "ns"}], ",", 
      RowBox[{"xp", "=", "1"}], ",", "tt1", ",", "lt", ",", "ut", ",", "ts"}],
      "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"Y", "=", 
      RowBox[{
       RowBox[{"RandomReal", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}], "]"}], "*", 
       RowBox[{"(", 
        RowBox[{"Exp", "@", 
         RowBox[{"(", 
          RowBox[{"LT", "*", 
           RowBox[{"EFS", "@", 
            RowBox[{"LefsMHt", "[", 
             RowBox[{"x0", ",", "HESS", ",", "t0"}], "]"}]}]}], ")"}]}], 
        ")"}]}]}], ";", "\n", 
     RowBox[{"G", "=", 
      RowBox[{"RandomReal", "[", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}], "]"}]}], ";", "\n", 
     RowBox[{"L", "=", 
      RowBox[{"-", "G"}]}], ";", 
     RowBox[{"R", "=", 
      RowBox[{"L", "+", "1"}]}], ";", "\n", "\n", 
     RowBox[{"ts", "=", 
      RowBox[{"{", 
       RowBox[{"TT3", ",", "TT2"}], "}"}]}], ";", "\n", "\n", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"N1", "<", 
        RowBox[{"ns", "/", "2"}]}], ",", 
       RowBox[{"{", "\n", 
        RowBox[{
         RowBox[{"TEMP1", "=", 
          RowBox[{"LefsMHt", "[", 
           RowBox[{
            RowBox[{"x0", "+", 
             RowBox[{"L", "*", "nn"}]}], ",", "HESS", ",", "t0"}], "]"}]}], 
         ";", "\n", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"TEMP1", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "==", "0"}], "||", 
            RowBox[{"Y", ">", 
             RowBox[{"Exp", "@", 
              RowBox[{"(", 
               RowBox[{"LT", "*", 
                RowBox[{"EFS", "@", "TEMP1"}]}], ")"}]}]}], "||", 
            RowBox[{
             RowBox[{"Norm", "[", 
              RowBox[{"x0", "+", 
               RowBox[{"L", "*", "nn"}]}], "]"}], ">", "20"}]}], ",", 
           RowBox[{
            RowBox[{"Break", "[", "]"}], ";"}], ",", 
           RowBox[{
            RowBox[{"L", "-=", "1"}], ";", 
            RowBox[{"N1", "++"}], ";"}]}], "]"}], ";", "\n", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"N1", ">", "100"}], ",", 
           RowBox[{
            RowBox[{"L", "=", 
             RowBox[{"-", "G"}]}], ";", 
            RowBox[{"Break", "[", "]"}], ";"}]}], "]"}], ";"}], "\n", "}"}]}],
       "]"}], ";", "\n", "\n", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"N3", "<", 
        RowBox[{"ns", "/", "2"}]}], ",", 
       RowBox[{"{", "\n", 
        RowBox[{
         RowBox[{"TEMP1", "=", 
          RowBox[{"LefsMHt", "[", 
           RowBox[{
            RowBox[{"x0", "+", 
             RowBox[{"R", "*", "nn"}]}], ",", "HESS", ",", "t0"}], "]"}]}], 
         ";", "\n", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"TEMP1", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "==", "0"}], "||", 
            RowBox[{"Y", ">", 
             RowBox[{"Exp", "@", 
              RowBox[{"(", 
               RowBox[{"LT", "*", 
                RowBox[{"EFS", "@", "TEMP1"}]}], ")"}]}]}], "||", 
            RowBox[{
             RowBox[{"Norm", "[", 
              RowBox[{"x0", "+", 
               RowBox[{"R", "*", "nn"}]}], "]"}], ">", "20"}]}], ",", 
           RowBox[{
            RowBox[{"Break", "[", "]"}], ";"}], ",", 
           RowBox[{
            RowBox[{"R", "+=", "1"}], ";", 
            RowBox[{"N3", "++"}], ";"}]}], "]"}], ";", "\n", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"N3", ">", "100"}], ",", 
           RowBox[{
            RowBox[{"Break", "[", "]"}], ";"}]}], "]"}]}], "\n", "}"}]}], 
      "]"}], ";", "\n", "\n", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"N2", "<", "np"}], ",", 
       RowBox[{"{", "\n", "\t", 
        RowBox[{
         RowBox[{"N2", "++"}], ";", "\n", "\t", 
         RowBox[{"xx1", "=", 
          RowBox[{"RandomReal", "[", 
           RowBox[{"{", 
            RowBox[{"L", ",", "R"}], "}"}], "]"}]}], ";", "\n", "\t", 
         RowBox[{"tt1", "=", 
          RowBox[{"RandomReal", "[", "ts", "]"}]}], ";", "\n", "\t", 
         RowBox[{"TEMP1", "=", 
          RowBox[{"LefsMHt", "[", 
           RowBox[{
            RowBox[{"x0", "+", 
             RowBox[{"xx1", "*", "nn"}]}], ",", "HESS", ",", "tt1"}], "]"}]}],
          ";", "\n", "\t", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"TEMP1", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "==", "0"}], ",", 
           RowBox[{"{", "\n", "\t\t", 
            RowBox[{
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"TEMP1", "[", 
                 RowBox[{"[", "5", "]"}], "]"}], ">", "TT3"}], ",", 
               RowBox[{"{", "\n", "\t\t\t", 
                RowBox[{
                 RowBox[{"ts", "=", 
                  RowBox[{"{", 
                   RowBox[{"TT3", ",", 
                    RowBox[{"TEMP1", "[", 
                    RowBox[{"[", "5", "]"}], "]"}]}], "}"}]}], ";", 
                 RowBox[{"ks", "++"}], ";", 
                 RowBox[{"Continue", "[", "]"}], ";"}], "\n", "\t\t", "}"}], 
               ",", 
               RowBox[{"{", "\n", "\t\t\t", 
                RowBox[{
                 RowBox[{"ks", "++"}], ";", 
                 RowBox[{"Continue", "[", "]"}], ";"}], "\n", "\t\t", "}"}]}],
               "]"}], ";"}], "\n", "\t", "}"}]}], "]"}], ";", "\n", "\t", 
         RowBox[{"y1", "=", 
          RowBox[{"Exp", "@", 
           RowBox[{"(", 
            RowBox[{"LT", "*", 
             RowBox[{"EFS", "@", "TEMP1"}]}], ")"}]}]}], ";", "\n", "\t", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"Y", "<", "y1"}], ",", 
           RowBox[{
            RowBox[{"xp", "=", "0"}], ";", 
            RowBox[{"Break", "[", "]"}], ";"}]}], "]"}], ";", "\n", "\t", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"xx1", "<", "0"}], ",", 
           RowBox[{
            RowBox[{"L", "=", "xx1"}], ";"}], ",", 
           RowBox[{
            RowBox[{"R", "=", "xx1"}], ";"}]}], "]"}], ";"}], "\n", "}"}]}], 
      "]"}], ";", "\n", "\n", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"xp", "==", "0"}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"r1", ",", "r2"}], "}"}], "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"xx1", "*", "nn"}], "+", "x0"}], ",", 
          RowBox[{"N", "[", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"N1", "+", "N3"}], ")"}], "/", 
            RowBox[{"(", 
             RowBox[{"N1", "+", "N3", "+", "N2"}], ")"}]}], "]"}]}], "}"}]}], 
       ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"r1", ",", "r2"}], "}"}], "=", 
        RowBox[{"{", 
         RowBox[{"x0", ",", "0.5065"}], "}"}]}]}], "]"}], ";", "\n", 
     RowBox[{"{", 
      RowBox[{
      "tt1", ",", "TEMP1", ",", "r2", ",", "N1", ",", "N2", ",", "N3", ",", 
       "ns"}], "}"}]}]}], "\n", "]"}]}]], "Code",ExpressionUUID->"96ac6925-\
22ee-4e14-bcbb-63b74940c59c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Slice3", "[", 
   RowBox[{"x0_", ",", "nx_", ",", "LT_", ",", 
    RowBox[{"ns_:", "100"}], ",", 
    RowBox[{"ra_:", "20"}]}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"TEMP1", ",", "GT", ",", "Y", ",", "G", ",", "L", ",", "R", ",", 
      RowBox[{"kk", "=", "1"}], ",", 
      RowBox[{"ks", "=", "1"}], ",", 
      RowBox[{"N1", "=", "1"}], ",", 
      RowBox[{"N2", "=", "1"}], ",", 
      RowBox[{"N3", "=", "1"}], ",", "xx1", ",", "y1", ",", "r1", ",", "r2", 
      ",", 
      RowBox[{"nn", "=", "nx"}], ",", 
      RowBox[{"xp", "=", "1"}], ",", "tt1", ",", "lt", ",", "ut", ",", "ts"}],
      "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"Y", "=", 
      RowBox[{
       RowBox[{"RandomReal", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}], "]"}], "*", 
       RowBox[{"ESt", "[", 
        RowBox[{"x0", ",", "LT"}], "]"}]}]}], ";", "\n", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"Y", "<", 
          RowBox[{"10", "^", 
           RowBox[{"(", 
            RowBox[{"-", "12"}], ")"}]}]}], ",", 
         RowBox[{"Y", "=", 
          RowBox[{
           RowBox[{"RandomReal", "[", 
            RowBox[{"{", 
             RowBox[{"0", ",", "1"}], "}"}], "]"}], "*", 
           RowBox[{"ESt", "[", 
            RowBox[{"x0", ",", "LT"}], "]"}]}]}]}], "]"}], ";"}], "*)"}], 
     "\n", 
     RowBox[{"G", "=", 
      RowBox[{"RandomReal", "[", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}], "]"}]}], ";", "\n", 
     RowBox[{"L", "=", 
      RowBox[{"-", "G"}]}], ";", 
     RowBox[{"R", "=", 
      RowBox[{"L", "+", "1"}]}], ";", "\n", "\n", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"N1", "<", 
        RowBox[{"ns", "/", "2"}]}], ",", 
       RowBox[{"{", "\n", 
        RowBox[{
         RowBox[{"TEMP1", "=", 
          RowBox[{"ESt", "[", 
           RowBox[{
            RowBox[{"x0", "+", 
             RowBox[{"L", "*", "nn"}]}], ",", "LT"}], "]"}]}], ";", "\n", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Y", ">", "TEMP1"}], "||", 
            RowBox[{
             RowBox[{"Norm", "[", 
              RowBox[{"x0", "+", 
               RowBox[{"L", "*", "nn"}]}], "]"}], ">", "ra"}]}], ",", 
           RowBox[{
            RowBox[{"Break", "[", "]"}], ";"}], ",", 
           RowBox[{
            RowBox[{"L", "-=", "1"}], ";", 
            RowBox[{"N1", "++"}], ";"}]}], "]"}], ";"}], "\n", "}"}]}], "]"}],
      ";", "\n", "\n", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"N3", "<", 
        RowBox[{"ns", "/", "2"}]}], ",", 
       RowBox[{"{", "\n", 
        RowBox[{
         RowBox[{"TEMP1", "=", 
          RowBox[{"ESt", "[", 
           RowBox[{
            RowBox[{"x0", "+", 
             RowBox[{"R", "*", "nn"}]}], ",", "LT"}], "]"}]}], ";", "\n", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Y", ">", "TEMP1"}], "||", 
            RowBox[{
             RowBox[{"Norm", "[", 
              RowBox[{"x0", "+", 
               RowBox[{"R", "*", "nn"}]}], "]"}], ">", "ra"}]}], ",", 
           RowBox[{
            RowBox[{"Break", "[", "]"}], ";"}], ",", 
           RowBox[{
            RowBox[{"R", "+=", "1"}], ";", 
            RowBox[{"N3", "++"}], ";"}]}], "]"}], ";"}], "\n", "}"}]}], "]"}],
      ";", "\n", "\n", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"N2", "<", "ns"}], ",", 
       RowBox[{"{", "\n", "\t", 
        RowBox[{
         RowBox[{"N2", "++"}], ";", "\n", "\t", 
         RowBox[{"xx1", "=", 
          RowBox[{"RandomReal", "[", 
           RowBox[{"{", 
            RowBox[{"L", ",", "R"}], "}"}], "]"}]}], ";", "\n", "\t", 
         RowBox[{"TEMP1", "=", 
          RowBox[{"ESt", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"xx1", "*", "nn"}], "+", "x0"}], ",", "LT"}], "]"}]}], 
         ";", "\n", "\t", 
         RowBox[{"y1", "=", "TEMP1"}], ";", "\n", "\t", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"Y", "<", "y1"}], ",", 
           RowBox[{
            RowBox[{"xp", "=", "0"}], ";", 
            RowBox[{"Break", "[", "]"}], ";"}]}], "]"}], ";", "\n", "\t", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"xx1", "<", "0"}], ",", 
           RowBox[{
            RowBox[{"L", "=", "xx1"}], ";"}], ",", 
           RowBox[{
            RowBox[{"R", "=", "xx1"}], ";"}]}], "]"}], ";"}], "\n", "}"}]}], 
      "]"}], ";", "\n", "\n", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"xp", "==", "0"}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"r1", ",", "r2"}], "}"}], "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"xx1", "*", "nn"}], "+", "x0"}], ",", 
          RowBox[{"N", "[", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"N1", "+", "N3"}], ")"}], "/", 
            RowBox[{"(", 
             RowBox[{"N1", "+", "N2", "+", "N3"}], ")"}]}], "]"}]}], "}"}]}], 
       ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"r1", ",", "r2"}], "}"}], "=", 
        RowBox[{"{", 
         RowBox[{"x0", ",", "0.5065"}], "}"}]}]}], "]"}], ";", "\n", 
     RowBox[{"{", 
      RowBox[{"r1", ",", "r2", ",", "N1", ",", "N2", ",", "N3", ",", "Y"}], 
      "}"}]}]}], "\n", "]"}]}]], "Code",ExpressionUUID->"ae34302f-be8b-4ba8-\
88f2-0af81b0114e2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Slice4", "[", 
   RowBox[{"x0_", ",", "nx_", ",", "LT_", ",", 
    RowBox[{"ns_:", "100"}], ",", 
    RowBox[{"ra_:", "20"}]}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"TEMP1", ",", "GT", ",", "Y", ",", "G", ",", "L", ",", "R", ",", 
      RowBox[{"kk", "=", "1"}], ",", 
      RowBox[{"ks", "=", "1"}], ",", 
      RowBox[{"N1", "=", "1"}], ",", 
      RowBox[{"N2", "=", "1"}], ",", 
      RowBox[{"N3", "=", "1"}], ",", "xx1", ",", "y1", ",", "r1", ",", "r2", 
      ",", 
      RowBox[{"nn", "=", "nx"}], ",", 
      RowBox[{"xp", "=", "1"}], ",", "tt1", ",", "lt", ",", "ut", ",", "ts"}],
      "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"Y", "=", 
      RowBox[{"ESt", "[", 
       RowBox[{"x0", ",", "LT"}], "]"}]}], ";", "\n", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"Y", "<", 
          RowBox[{"10", "^", 
           RowBox[{"(", 
            RowBox[{"-", "12"}], ")"}]}]}], ",", 
         RowBox[{"Y", "=", 
          RowBox[{
           RowBox[{"RandomReal", "[", 
            RowBox[{"{", 
             RowBox[{"0", ",", "1"}], "}"}], "]"}], "*", 
           RowBox[{"ESt", "[", 
            RowBox[{"x0", ",", "LT"}], "]"}]}]}]}], "]"}], ";"}], "*)"}], 
     "\n", 
     RowBox[{"TEMP1", "=", 
      RowBox[{"NSolve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"ComplexExpand", "[", 
          RowBox[{
           RowBox[{"Norm", "[", 
            RowBox[{"x0", "+", 
             RowBox[{"GT", "*", "nn"}]}], "]"}], "^", "2"}], "]"}], "==", 
         RowBox[{"ra", "^", "2"}]}], ",", "GT"}], "]"}]}], ";", "\n", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"L", ",", "R"}], "}"}], "=", 
      RowBox[{"Sort", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"GT", "/.", 
          RowBox[{"TEMP1", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{"GT", "/.", 
          RowBox[{"TEMP1", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], "]"}]}], ";", "\n", 
     "\n", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"N2", "<", "ns"}], ",", 
       RowBox[{"{", "\n", "\t", 
        RowBox[{
         RowBox[{"N2", "++"}], ";", "\n", "\t", 
         RowBox[{"xx1", "=", 
          RowBox[{"RandomReal", "[", 
           RowBox[{"{", 
            RowBox[{"L", ",", "R"}], "}"}], "]"}]}], ";", "\n", "\t", 
         RowBox[{"TEMP1", "=", 
          RowBox[{"ESt", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"xx1", "*", "nn"}], "+", "x0"}], ",", "LT"}], "]"}]}], 
         ";", "\n", "\t", 
         RowBox[{"y1", "=", "TEMP1"}], ";", "\n", "\t", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"Y", "<", "y1"}], ",", 
           RowBox[{
            RowBox[{"xp", "=", "0"}], ";", 
            RowBox[{"Break", "[", "]"}], ";"}]}], "]"}], ";", "\n", "\t", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"xx1", "<", "0"}], ",", 
           RowBox[{
            RowBox[{"L", "=", "xx1"}], ";"}], ",", 
           RowBox[{
            RowBox[{"R", "=", "xx1"}], ";"}]}], "]"}], ";"}], "\n", "}"}]}], 
      "]"}], ";", "\n", "\n", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"xp", "==", "0"}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"r1", ",", "r2"}], "}"}], "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"xx1", "*", "nn"}], "+", "x0"}], ",", 
          RowBox[{"N", "[", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"N1", "+", "N3"}], ")"}], "/", 
            RowBox[{"(", 
             RowBox[{"N1", "+", "N2", "+", "N3"}], ")"}]}], "]"}]}], "}"}]}], 
       ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"r1", ",", "r2"}], "}"}], "=", 
        RowBox[{"{", 
         RowBox[{"x0", ",", "0.5065"}], "}"}]}]}], "]"}], ";", "\n", 
     RowBox[{"{", 
      RowBox[{"r1", ",", "r2", ",", "N1", ",", "N2", ",", "N3", ",", "Y"}], 
      "}"}]}]}], "\n", "]"}]}]], "Code",ExpressionUUID->"2c95b461-1df2-43ce-\
9505-9bfb750e7679"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"EFS", "[", "B_", "]"}], ":=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"Abs", "[", 
       RowBox[{"B", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], "+", 
     RowBox[{"Re", "[", 
      RowBox[{"P3", "[", 
       RowBox[{
        RowBox[{"B", "[", 
         RowBox[{"[", "4", "]"}], "]"}], ",", "\[Gamma]"}], "]"}], "]"}]}], 
    ")"}]}], ";"}]], "Code",ExpressionUUID->"9f135bbf-fbd4-490b-8483-\
c06989f23c2c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ESt", "[", 
   RowBox[{"x0_", ",", "LT_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"k1", ",", "k2"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"k1", "=", 
      RowBox[{"Abs", "[", 
       RowBox[{"Det", "[", 
        RowBox[{"P2", "[", 
         RowBox[{"x0", ",", "\[Gamma]"}], "]"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"k1", "==", "0"}], ",", 
       RowBox[{"k2", "=", "0"}], ",", 
       RowBox[{"k2", "=", 
        RowBox[{"Exp", "[", 
         RowBox[{"ESc", "[", 
          RowBox[{"x0", ",", "LT"}], "]"}], "]"}]}]}], "]"}], ";", "\n", 
     "k2"}]}], "\n", "]"}]}]], "Code",ExpressionUUID->"cec1b947-3a67-43eb-\
b427-45d01bdfa0e8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ESS", "[", 
   RowBox[{"x0_", ",", "LT_"}], "]"}], ":=", 
  RowBox[{"LT", "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Norm", "@", 
       RowBox[{"P1", "[", 
        RowBox[{"x0", ",", "\[Gamma]"}], "]"}]}]}], "-", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{"-", 
       RowBox[{"(", 
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{"Abs", "[", 
           RowBox[{"Det", "[", 
            RowBox[{"P2", "[", 
             RowBox[{"x0", ",", "\[Gamma]"}], "]"}], "]"}], "]"}], "+", 
          RowBox[{"10", "^", 
           RowBox[{"(", 
            RowBox[{"-", "200"}], ")"}]}]}], "]"}], ")"}]}], "]"}]}], 
    ")"}]}]}]], "Code",ExpressionUUID->"876fd5e8-762f-4a5f-90a8-5aed121f5e02"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ESc", "[", 
   RowBox[{"x0_", ",", "LT_"}], "]"}], ":=", 
  RowBox[{"LT", "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Norm", "[", 
       RowBox[{"P1", "[", 
        RowBox[{"x0", ",", "\[Gamma]"}], "]"}], "]"}]}], "+", 
     RowBox[{"Clip", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"Log", "[", 
         RowBox[{"Abs", "[", 
          RowBox[{"Det", "[", 
           RowBox[{"P2", "[", 
            RowBox[{"x0", ",", "\[Gamma]"}], "]"}], "]"}], "]"}], "]"}], 
        ")"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "Infinity"}], ",", "0"}], "}"}]}], "]"}]}], 
    ")"}]}]}], "\n", 
 RowBox[{
  RowBox[{"ESp", "[", 
   RowBox[{"x0_", ",", "LT_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"k1", ",", "k2"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"k1", "=", 
      RowBox[{"Abs", "[", 
       RowBox[{"Det", "[", 
        RowBox[{"P2", "[", 
         RowBox[{"x0", ",", "\[Gamma]"}], "]"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"k1", "==", "0"}], "||", 
        RowBox[{
         RowBox[{"Norm", "[", "x0", "]"}], ">", "30"}]}], ",", 
       RowBox[{"k2", "=", 
        RowBox[{"-", "Infinity"}]}], ",", 
       RowBox[{"k2", "=", 
        RowBox[{"ESc", "[", 
         RowBox[{"x0", ",", "LT"}], "]"}]}]}], "]"}], ";", "\n", "k2"}]}], 
   "\n", "]"}]}], "\n", 
 RowBox[{"m1", "=", "NN"}]}], "Code",ExpressionUUID->"735c3667-5f4f-4aa0-8d0a-\
9c90da570478"],

Cell[BoxData[
 RowBox[{
  RowBox[{"dis", "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"Norm", "[", 
     RowBox[{"(", 
      RowBox[{"x", "-", "#"}], ")"}], "]"}], "&"}], "/@", "cx"}]}]], "Code",Ex\
pressionUUID->"b2fd519e-e737-4846-84fb-fd860399404c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Boxing", "[", 
   RowBox[{"x3_", ",", "ts_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"c1", ",", "c2", ",", "c3", ",", "c4"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"c1", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"Abs", "[", "x3", "]"}], ")"}], "[", 
        RowBox[{"[", 
         RowBox[{"1", ";;", "124"}], "]"}], "]"}], "/", "ts"}]}], ";", "\n", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Max", "[", "c1", "]"}], ">", "1"}], ",", 
       RowBox[{"{", "\n", "\t", 
        RowBox[{
         RowBox[{"c2", "=", 
          RowBox[{"Max", "[", "c1", "]"}]}], ";", "\n", "\t", 
         RowBox[{"c3", "=", 
          RowBox[{"x3", "/", "c2"}]}], ";", "\n", "\t", 
         RowBox[{"c4", "=", 
          RowBox[{"-", "0"}]}], ";"}], "\n", "}"}], ",", 
       RowBox[{"{", "\n", "\t", 
        RowBox[{
         RowBox[{"c3", "=", "x3"}], ";", "\n", "\t", 
         RowBox[{"c4", "=", "1"}], ";"}], "\n", "}"}]}], "]"}], ";", "\n", 
     RowBox[{"{", 
      RowBox[{"c3", ",", "c4"}], "}"}]}]}], "\n", "]"}]}]], "Code",ExpressionU\
UID->"5105c78f-6f6d-403e-bdb6-7fd852914a88"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Set", " ", "the", " ", "working", " ", "range"}], "*)"}], "\n", 
  RowBox[{
   RowBox[{
    RowBox[{"cs5", "=", 
     RowBox[{"cs2", "-", 
      RowBox[{"ConstantArray", "[", 
       RowBox[{
        RowBox[{"Mean", "[", "cs2", "]"}], ",", "8"}], "]"}]}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"ts", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"Max", "[", 
          RowBox[{"Abs", "[", 
           RowBox[{"cs5", "[", 
            RowBox[{"[", 
             RowBox[{";;", ",", "x"}], "]"}], "]"}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "1", ",", "124"}], "}"}]}], "]"}], "*", "1.5"}], 
      "+", "1.2"}]}], ";"}]}]}]], "Code",ExpressionUUID->"8cd3b358-62d0-43b1-\
8654-ab16de5e658f"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Coarse finder", "Subtitle",ExpressionUUID->"ca269788-0184-4f6b-85be-be91b9fcffb7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"CloseKernels", "[", "]"}], ";"}]], "Code",ExpressionUUID->"6639c2ee-13fb-4d76-a504-dd28ab4d041e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LaunchKernels", "[", "128", "]"}], ";"}]], "Code",
 CellChangeTimes->{{3.865405897364188*^9, 
  3.8654058981381865`*^9}},ExpressionUUID->"9fc262a3-4474-4565-bf24-\
e0805db34f39"],

Cell[BoxData[{
 RowBox[{"Off", "[", 
  RowBox[{"General", "::", "munfl"}], "]"}], "\n", 
 RowBox[{"Off", "[", 
  RowBox[{"Inverse", "::", "luc"}], "]"}]}], "Code",ExpressionUUID->"4630eae1-\
a817-4e53-a10f-5da2839be39d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ParallelEvaluate", "[", 
   RowBox[{"Off", "[", 
    RowBox[{"General", "::", "munfl"}], "]"}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"ParallelEvaluate", "[", 
   RowBox[{"Off", "[", 
    RowBox[{"General", "::", "ovfl"}], "]"}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"ParallelEvaluate", "[", 
   RowBox[{"Off", "[", 
    RowBox[{"Inverse", "::", "luc"}], "]"}], "]"}], ";"}]}], "Code",Expression\
UUID->"29f27a8b-9e3c-4686-a9e7-e84418b4d4c0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "One", " ", "need", " ", "to", " ", "choose", " ", "where", " ", "to", " ",
     "apply", " ", "the", " ", "finder", " ", "here", " ", "by", " ", 
    "setting", " ", 
    RowBox[{"cs2", "[", 
     RowBox[{"[", "1", "]"}], "]"}], " ", "to", " ", 
    RowBox[{"cs2", "[", 
     RowBox[{"[", "8", "]"}], "]"}]}], "*)"}], "\n", 
  RowBox[{
   RowBox[{
    RowBox[{"kp", "=", "4"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"XX0", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"RandomReal", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "0.001"}], ",", "0.001"}], "}"}], ",", "124"}], 
           "]"}], ",", 
          RowBox[{"ConstantArray", "[", 
           RowBox[{"0", ",", "124"}], "]"}]}], "]"}], "+", 
        RowBox[{"cs2", "[", 
         RowBox[{"[", "kp", "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "248"}], "}"}]}], "]"}]}], 
    ";"}]}]}]], "Code",ExpressionUUID->"9a913f5e-9d0b-480c-b351-54039cc1a0ba"],

Cell[BoxData[
 RowBox[{
  RowBox[{"XP", "=", 
   RowBox[{"ParallelTable", "[", 
    RowBox[{
     RowBox[{"LefsMHt", "[", 
      RowBox[{
       RowBox[{"XX0", "[", 
        RowBox[{"[", "x", "]"}], "]"}], ",", "HESS", ",", "0.01"}], "]"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1", ",", "248"}], "}"}]}], "]"}]}], ";"}]], "Code",Ex\
pressionUUID->"f4c40558-d57a-4481-ba82-85d8339eb06a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"RES", "=", 
   RowBox[{"{", "}"}]}], ";"}]], "Code",ExpressionUUID->"e2afb546-32a4-4468-\
80e1-3a4c89b9b4d4"],

Cell[BoxData[
 RowBox[{"TT3", "=", 
  RowBox[{
   RowBox[{"XP", "[", 
    RowBox[{"[", 
     RowBox[{";;", ",", "5"}], "]"}], "]"}], "//", "Max"}]}]], "Code",Expressi\
onUUID->"883b0291-a33f-435d-82eb-e44b128573b2"],

Cell[BoxData[
 RowBox[{"TT2", "=", 
  RowBox[{"TT3", "*", "0.2"}]}]], "Code",ExpressionUUID->"273ae902-e7e3-4d9b-a679-e59a0907a3bb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"tser", "=", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"TT2", "+", "TT3"}], ")"}], "/", "2"}], ",", "248"}], "]"}]}], 
  ";"}]], "Code",ExpressionUUID->"2792974a-da12-4eab-9ded-e2ab25bb361c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"w", "=", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{"1", ",", "249"}], "]"}]}], ";"}]], "Code",ExpressionUUID->\
"4508579d-82d4-4832-bfe8-dd98e4e68807"],

Cell[BoxData[
 RowBox[{
  RowBox[{"i", "=", "0"}], ";"}]], "Code",ExpressionUUID->"6fab3ecd-c3ea-4174-be1c-d49dbc308dba"],

Cell[BoxData[
 RowBox[{"While", "[", 
  RowBox[{
   RowBox[{"i", "<", "200"}], ",", 
   RowBox[{"{", "\n", 
    RowBox[{
     RowBox[{"V", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"vv", "[", 
         RowBox[{"x", ",", 
          RowBox[{"w", "[", 
           RowBox[{"[", "x", "]"}], "]"}], ",", "XX0", ",", "248"}], "]"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "248"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"w1", "=", 
      RowBox[{"w", "[", 
       RowBox[{"[", "249", "]"}], "]"}]}], ";", "\n", 
     RowBox[{"TT1", "=", 
      RowBox[{"ParallelTable", "[", 
       RowBox[{
        RowBox[{"Slice1", "[", 
         RowBox[{
          RowBox[{"XX0", "[", 
           RowBox[{"[", "xx", "]"}], "]"}], ",", 
          RowBox[{"tser", "[", 
           RowBox[{"[", "xx", "]"}], "]"}], ",", 
          RowBox[{"V", "[", 
           RowBox[{"[", "xx", "]"}], "]"}], ",", "40"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"xx", ",", "1", ",", "248"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"tser", "=", 
      RowBox[{"TT1", "[", 
       RowBox[{"[", 
        RowBox[{";;", ",", "1"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"RES", "=", 
      RowBox[{"Join", "[", 
       RowBox[{"RES", ",", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"TT1", "[", 
           RowBox[{"[", 
            RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", "1", ",", "248"}], "}"}]}], "]"}]}], "]"}]}], 
     ";", "\n", 
     RowBox[{"XX0", "=", 
      RowBox[{"TT1", "[", 
       RowBox[{"[", 
        RowBox[{";;", ",", "2", ",", "3"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"i", "++"}], ";"}], "\n", "}"}]}], "]"}]], "Code",ExpressionUUID->\
"42c73ed6-6d32-477c-a5b5-1f2da06e8b51"],

Cell[BoxData[
 RowBox[{
  RowBox[{"DumpSave", "[", 
   RowBox[{
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Directory", "[", "]"}], ",", 
       RowBox[{
        RowBox[{"ToString", "[", "kp", "]"}], "<>", "\"\<-data.wdx\>\""}]}], 
      "}"}], "]"}], ",", "RES"}], "]"}], ";"}]], "Code",ExpressionUUID->\
"a0bfd1e3-a440-494f-9555-c316af647bb5"]
}, Open  ]],

Cell[CellGroupData[{

Cell["PinPoint Finder", "Subtitle",ExpressionUUID->"1b04ae91-c703-4c02-bc12-2c3516c42770"],

Cell[BoxData[
 RowBox[{"Length", "[", "RES", "]"}]], "Code",ExpressionUUID->"507a9d31-afcf-49fe-af5d-b34666b19002"],

Cell[BoxData[
 RowBox[{
  RowBox[{"RES", "=", 
   RowBox[{"RES", "[", 
    RowBox[{"[", 
     RowBox[{";;", "30000"}], "]"}], "]"}]}], ";"}]], "Code",ExpressionUUID->\
"907bc352-ad95-4cd5-b1d9-d145c4ad0e33"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ss", "=", 
   RowBox[{"Ordering", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"EFS", "[", "#", "]"}], "&"}], "/@", "RES"}], ",", 
     RowBox[{"-", "6000"}]}], "]"}]}], ";"}]], "Code",ExpressionUUID->\
"48212065-9422-4ed0-9a0b-ece8e26482b0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"sss", "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"RES", "[", 
       RowBox[{"[", "#", "]"}], "]"}], "&"}], "/@", 
     RowBox[{"(", "ss", ")"}]}], ")"}]}], ";"}]], "Code",ExpressionUUID->\
"e4946525-e928-42d4-8645-74cb44f81f16"],

Cell[BoxData[
 RowBox[{
  RowBox[{"tks", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"RES", "[", 
      RowBox[{"[", 
       RowBox[{"#", ",", "4"}], "]"}], "]"}], "&"}], "/@", 
    RowBox[{"(", "ss", ")"}]}]}], ";"}]], "Code",ExpressionUUID->"991b2810-\
424b-43ee-9db4-a1c1245f4b04"],

Cell[BoxData[
 RowBox[{
  RowBox[{"tstk", "=", 
   RowBox[{"ParallelMap", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"FindCrits", "[", 
       RowBox[{"#", ",", "\[Gamma]", ",", "100"}], "]"}], "&"}], ",", "tks"}],
     "]"}]}], ";"}]], "Code",ExpressionUUID->"ef30675b-1fe2-4f4f-aa34-\
fab5e8fa75e9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"tsts", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Norm", "[", 
        RowBox[{"#", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
       RowBox[{"#", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "&"}], "/@", "tstk"}]}], 
  ";"}]], "Code",ExpressionUUID->"b02e78a5-695e-4eb9-a8af-a3041887d8e8"],

Cell[BoxData[
 RowBox[{"psts", "=", 
  RowBox[{"DeleteCases", "[", 
   RowBox[{
    RowBox[{"Sort", "[", 
     RowBox[{"Tally", "[", 
      RowBox[{"tsts", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"SetPrecision", "[", 
          RowBox[{
           RowBox[{"#1", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "4"}], "]"}], "===", 
         RowBox[{"SetPrecision", "[", 
          RowBox[{
           RowBox[{"#2", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "4"}], "]"}]}], "&"}]}], 
      "]"}], "]"}], ",", 
    RowBox[{"x_", "/;", 
     RowBox[{
      RowBox[{"x", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "2"}], "]"}], "]"}], "==", "1"}]}]}], 
   "]"}]}]], "Code",ExpressionUUID->"0a3ecf44-257c-4fb1-adac-d8396c77e0c4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"AP", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Max", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"EFS", "[", 
          RowBox[{"sss", "[", 
           RowBox[{"[", "#", "]"}], "]"}], "]"}], "&"}], "/@", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"Position", "[", 
           RowBox[{
            RowBox[{"SetPrecision", "[", 
             RowBox[{"tsts", ",", "4"}], "]"}], ",", 
            RowBox[{"SetPrecision", "[", 
             RowBox[{"#", ",", "4"}], "]"}]}], "]"}], ")"}], "[", 
         RowBox[{"[", 
          RowBox[{";;", ",", "1"}], "]"}], "]"}]}], "]"}], ")"}], "&"}], "/@", 
    RowBox[{"psts", "[", 
     RowBox[{"[", 
      RowBox[{";;", ",", "1"}], "]"}], "]"}]}]}], ";"}]], "Code",ExpressionUUI\
D->"b448e116-6e14-42a9-8750-993c1af47228"],

Cell[BoxData[
 RowBox[{"pstd", "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Position", "[", 
      RowBox[{"tsts", ",", "#"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}], "&"}], "/@", 
   RowBox[{"psts", "[", 
    RowBox[{"[", 
     RowBox[{";;", ",", "1"}], "]"}], "]"}]}]}]], "Code",ExpressionUUID->\
"da932ba9-92c0-44d1-968b-cbb4ce7ed39c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"AS", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"tstk", "[", 
       RowBox[{"[", 
        RowBox[{"pstd", "[", 
         RowBox[{"[", 
          RowBox[{"x", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1", ",", 
       RowBox[{"Length", "[", "pstd", "]"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Code",ExpressionUUID->"abed4dba-ef15-49b6-afee-2ee63b9142af"]
}, Open  ]]
},
WindowSize->{775, 865},
WindowMargins->{{288, Automatic}, {Automatic, 29}},
TaggingRules->Association[
 "CodeFormatter" -> 
  Association[
   "ToolbarState" -> False, "ToolbarAccentColor" -> RGBColor["#2497b7"]]],
FrontEndVersion->"12.3 for Microsoft Windows (64-bit) (2021\:5e747\:670823\
\:65e5)",
StyleDefinitions->"Script.nb",
ExpressionUUID->"c8c2db4b-8901-451c-8b1e-8c9d093ca707"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 85, 0, 53, "Subtitle",ExpressionUUID->"bb31c54c-e809-433e-b00e-e760e5c5ab3c"],
Cell[668, 24, 128, 1, 24, "Input",ExpressionUUID->"1c8363a7-28d1-434d-b372-e97d23e3effa"],
Cell[799, 27, 364, 11, 105, "Input",ExpressionUUID->"7f2efbac-1a80-4889-90d6-971fb763f5f0"],
Cell[1166, 40, 2571, 73, 385, "Input",ExpressionUUID->"12e32b7b-8f52-478b-a0f9-acb503a19259"],
Cell[3740, 115, 227, 6, 24, "Input",ExpressionUUID->"fe7cda1e-b0f3-4cf2-9b92-195b9d3e1cf8"],
Cell[3970, 123, 81, 0, 24, "Input",ExpressionUUID->"b86522c3-1179-4c27-81b5-0b681425fc3f"],
Cell[4054, 125, 461, 14, 24, "Input",ExpressionUUID->"29551a4a-adfb-4323-9c8f-94d0276efc39"],
Cell[4518, 141, 235, 6, 24, "Input",ExpressionUUID->"729b5ba4-e7f3-4064-bb7f-e18454c77b89"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4790, 152, 101, 0, 53, "Subtitle",ExpressionUUID->"7e5db456-7c15-4b7f-b7c4-eddd57168650"],
Cell[4894, 154, 565, 15, 24, "Input",ExpressionUUID->"b73b2b5d-50ab-49e6-b1ed-b9a5c5d3055b"],
Cell[5462, 171, 3585, 103, 325, "Input",ExpressionUUID->"1f29d59b-7dac-4d34-bd74-7d0086647d5e"],
Cell[9050, 276, 1706, 51, 70, "Input",ExpressionUUID->"750db505-cf29-4446-807d-8167a8a879fb"],
Cell[10759, 329, 3686, 102, 70, "Input",ExpressionUUID->"9b869718-2e46-4500-b114-34a637dcaed8"],
Cell[14448, 433, 1131, 34, 70, "Input",ExpressionUUID->"a474ab2b-b333-457a-950d-c6310ef94516"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15616, 472, 81, 0, 70, "Subtitle",ExpressionUUID->"ce9ad4ee-6c0c-4911-b63d-48375d775b3a"],
Cell[15700, 474, 6256, 198, 70, "Input",ExpressionUUID->"39d9fa65-b529-4d5c-b33c-b4f503d4e180"],
Cell[21959, 674, 2464, 71, 70, "Input",ExpressionUUID->"26adc6db-3542-42a4-8791-d10c7b037b0d"],
Cell[24426, 747, 1638, 51, 70, "Input",ExpressionUUID->"a52833ea-e259-45e4-99ea-137b263c65a9"],
Cell[26067, 800, 1101, 33, 70, "Input",ExpressionUUID->"f61739a5-b8d1-4ac0-aa58-f2cbba7f4390"],
Cell[27171, 835, 2248, 70, 70, "Input",ExpressionUUID->"c14b6a69-2335-4c31-b5aa-7d948f784bba"],
Cell[29422, 907, 278, 8, 70, "Input",ExpressionUUID->"6e88a72a-9d74-4c9e-8579-13e0b093072f"],
Cell[29703, 917, 5365, 166, 70, "Input",ExpressionUUID->"f25dcbf1-0ef4-4f34-b202-06cf89902abb"],
Cell[35071, 1085, 2747, 86, 70, "Input",ExpressionUUID->"91be52d0-1cde-4691-ae8c-26d96380d20f"],
Cell[37821, 1173, 117326, 3273, 70, "Input",ExpressionUUID->"ede26012-893c-4b24-a2d0-3622ed756d6d"],
Cell[155150, 4448, 14145, 378, 70, "Input",ExpressionUUID->"65d20270-78c0-42de-85ee-2da7eceaa138"],
Cell[169298, 4828, 11331, 300, 70, "Input",ExpressionUUID->"7ee17238-2c04-4443-8fd0-8ee77ca1b6b1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[180666, 5133, 127, 0, 70, "Subtitle",ExpressionUUID->"eb72fb6f-d419-4333-87c1-51300c9829ff"],
Cell[180796, 5135, 390, 11, 70, "Input",ExpressionUUID->"6e69d0b1-2de5-4a6f-b2c0-f5da41bf73ea"],
Cell[181189, 5148, 3573, 109, 70, "Input",ExpressionUUID->"360d9a99-2e3b-44a9-8595-b020807f9f2f"],
Cell[184765, 5259, 3102, 91, 70, "Input",ExpressionUUID->"f9af501b-0e56-4475-b064-11e7eb3b7042"],
Cell[187870, 5352, 2492, 75, 70, "Input",ExpressionUUID->"9c1e4f7e-4d8d-4783-83a2-aad19786b330"],
Cell[190365, 5429, 194, 5, 70, "Input",ExpressionUUID->"cb3630a9-df28-4fa0-956a-5adb465dcd0f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[190596, 5439, 89, 0, 70, "Subtitle",ExpressionUUID->"183256b6-6f11-482a-8a6f-10ac26617dc2"],
Cell[190688, 5441, 8492, 217, 70, "Input",ExpressionUUID->"75b786fb-0a82-4ed7-bca2-ed00af936486"]
}, Open  ]],
Cell[CellGroupData[{
Cell[199217, 5663, 96, 0, 70, "Subtitle",ExpressionUUID->"d07de350-6a2a-421d-8f16-0a6fd7a298e2"],
Cell[199316, 5665, 3949, 110, 70, "Input",ExpressionUUID->"e1668392-0b61-4930-adba-510a1dbef910"],
Cell[203268, 5777, 2425, 67, 70, "Input",ExpressionUUID->"ca7064ae-9da0-43de-ac5a-53e6e8971a20"],
Cell[205696, 5846, 5412, 148, 70, "Input",ExpressionUUID->"31647ed7-0dac-4f79-bbd4-51a4ef9a4e60"],
Cell[211111, 5996, 367, 10, 70, "Input",ExpressionUUID->"783962bc-4e2b-4dfb-926d-c03c3d6a00f0"],
Cell[211481, 6008, 5636, 143, 70, "Input",ExpressionUUID->"33d6b85c-35c3-4df8-9225-e7339612d13e"],
Cell[217120, 6153, 562, 16, 70, "Input",ExpressionUUID->"6621c92c-d2f0-46fc-b110-909e30d9d027"],
Cell[217685, 6171, 213, 6, 70, "Input",ExpressionUUID->"1aa148aa-7d93-4f1b-926b-97bd37289786"],
Cell[217901, 6179, 100, 1, 70, "Code",ExpressionUUID->"ea635cda-6926-4bf3-8787-1e22a83a1b9c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[218038, 6185, 94, 0, 70, "Subtitle",ExpressionUUID->"d9d5d9c8-f392-495e-b73c-03e8d73448d7"],
Cell[218135, 6187, 4182, 113, 70, "Code",ExpressionUUID->"8998630f-68da-4eb5-aee6-2cc3ff5fa956"],
Cell[222320, 6302, 4821, 131, 70, "Code",ExpressionUUID->"64f9fbe4-0bc8-46dd-a0fc-088acd925501"],
Cell[227144, 6435, 278, 8, 70, "Code",ExpressionUUID->"6a847fe8-2cd8-4bd8-8419-5c4bb5327e9c"],
Cell[227425, 6445, 594, 19, 70, "Code",ExpressionUUID->"80c1cf9a-011e-469d-a5d1-75bc8b378aea"],
Cell[228022, 6466, 189, 4, 70, "Code",ExpressionUUID->"d2c7019f-bd99-4f58-b5c0-8ccb09beaee6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[228248, 6475, 91, 0, 70, "Subtitle",ExpressionUUID->"9b40c495-cb48-4f27-b32e-130036f3ebc8"],
Cell[228342, 6477, 6889, 178, 70, "Code",ExpressionUUID->"db148ed8-5faa-4b54-a083-67c5ead619ed"],
Cell[235234, 6657, 5358, 139, 70, "Code",ExpressionUUID->"1a35660a-974e-4b75-8629-426a5c8b4e1a"],
Cell[240595, 6798, 6386, 167, 70, "Code",ExpressionUUID->"3cda3a12-ed86-45b3-a898-ffdfff514fe9"],
Cell[246984, 6967, 238, 6, 70, "Code",ExpressionUUID->"815564c9-eb18-4514-9f23-3e2b7ea19536"]
}, Open  ]],
Cell[CellGroupData[{
Cell[247259, 6978, 99, 0, 70, "Subtitle",ExpressionUUID->"7761eda5-aac8-4e19-b409-f94fcb8a1dac"],
Cell[247361, 6980, 360, 10, 70, "Code",ExpressionUUID->"98bde453-59fb-46ea-9bf2-39e0d7aca00d"],
Cell[247724, 6992, 550, 16, 70, "Code",ExpressionUUID->"26f058aa-3456-4fc0-b9c5-d16bec6c48b3"],
Cell[248277, 7010, 163, 4, 70, "Code",ExpressionUUID->"587c75d9-067f-49d5-aa95-241a87e5fa42"],
Cell[248443, 7016, 2230, 58, 70, "Code",ExpressionUUID->"c2622285-57f3-4034-ab2e-73840ebedde4"],
Cell[250676, 7076, 7709, 212, 70, "Code",ExpressionUUID->"96ac6925-22ee-4e14-bcbb-63b74940c59c"],
Cell[258388, 7290, 5483, 157, 70, "Code",ExpressionUUID->"ae34302f-be8b-4ba8-88f2-0af81b0114e2"],
Cell[263874, 7449, 4122, 118, 70, "Code",ExpressionUUID->"2c95b461-1df2-43ce-9505-9bfb750e7679"],
Cell[267999, 7569, 503, 16, 70, "Code",ExpressionUUID->"9f135bbf-fbd4-490b-8483-c06989f23c2c"],
Cell[268505, 7587, 771, 23, 117, "Code",ExpressionUUID->"cec1b947-3a67-43eb-b427-45d01bdfa0e8"],
Cell[269279, 7612, 774, 23, 36, "Code",ExpressionUUID->"876fd5e8-762f-4a5f-90a8-5aed121f5e02"],
Cell[270056, 7637, 1572, 50, 157, "Code",ExpressionUUID->"735c3667-5f4f-4aa0-8d0a-9c90da570478"],
Cell[271631, 7689, 267, 8, 36, "Code",ExpressionUUID->"b2fd519e-e737-4846-84fb-fd860399404c"],
Cell[271901, 7699, 1223, 34, 257, "Code",ExpressionUUID->"5105c78f-6f6d-403e-bdb6-7fd852914a88"],
Cell[273127, 7735, 828, 25, 77, "Code",ExpressionUUID->"8cd3b358-62d0-43b1-8654-ab16de5e658f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[273992, 7765, 88, 0, 53, "Subtitle",ExpressionUUID->"ca269788-0184-4f6b-85be-be91b9fcffb7"],
Cell[274083, 7767, 132, 2, 36, "Code",ExpressionUUID->"6639c2ee-13fb-4d76-a504-dd28ab4d041e"],
Cell[274218, 7771, 213, 5, 36, "Code",ExpressionUUID->"9fc262a3-4474-4565-bf24-e0805db34f39"],
Cell[274434, 7778, 220, 5, 57, "Code",ExpressionUUID->"4630eae1-a817-4e53-a10f-5da2839be39d"],
Cell[274657, 7785, 485, 13, 77, "Code",ExpressionUUID->"29f27a8b-9e3c-4686-a9e7-e84418b4d4c0"],
Cell[275145, 7800, 1142, 33, 77, "Code",ExpressionUUID->"9a913f5e-9d0b-480c-b351-54039cc1a0ba"],
Cell[276290, 7835, 405, 12, 36, "Code",ExpressionUUID->"f4c40558-d57a-4481-ba82-85d8339eb06a"],
Cell[276698, 7849, 144, 4, 36, "Code",ExpressionUUID->"e2afb546-32a4-4468-80e1-3a4c89b9b4d4"],
Cell[276845, 7855, 215, 6, 36, "Code",ExpressionUUID->"883b0291-a33f-435d-82eb-e44b128573b2"],
Cell[277063, 7863, 132, 2, 36, "Code",ExpressionUUID->"273ae902-e7e3-4d9b-a679-e59a0907a3bb"],
Cell[277198, 7867, 280, 8, 36, "Code",ExpressionUUID->"2792974a-da12-4eab-9ded-e2ab25bb361c"],
Cell[277481, 7877, 191, 5, 36, "Code",ExpressionUUID->"4508579d-82d4-4832-bfe8-dd98e4e68807"],
Cell[277675, 7884, 121, 2, 36, "Code",ExpressionUUID->"6fab3ecd-c3ea-4174-be1c-d49dbc308dba"],
Cell[277799, 7888, 1823, 52, 197, "Code",ExpressionUUID->"42c73ed6-6d32-477c-a5b5-1f2da06e8b51"],
Cell[279625, 7942, 385, 11, 36, "Code",ExpressionUUID->"a0bfd1e3-a440-494f-9555-c316af647bb5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[280047, 7958, 90, 0, 53, "Subtitle",ExpressionUUID->"1b04ae91-c703-4c02-bc12-2c3516c42770"],
Cell[280140, 7960, 115, 1, 36, "Code",ExpressionUUID->"507a9d31-afcf-49fe-af5d-b34666b19002"],
Cell[280258, 7963, 207, 6, 36, "Code",ExpressionUUID->"907bc352-ad95-4cd5-b1d9-d145c4ad0e33"],
Cell[280468, 7971, 295, 9, 36, "Code",ExpressionUUID->"48212065-9422-4ed0-9a0b-ece8e26482b0"],
Cell[280766, 7982, 285, 9, 36, "Code",ExpressionUUID->"e4946525-e928-42d4-8645-74cb44f81f16"],
Cell[281054, 7993, 284, 9, 36, "Code",ExpressionUUID->"991b2810-424b-43ee-9db4-a1c1245f4b04"],
Cell[281341, 8004, 305, 9, 36, "Code",ExpressionUUID->"ef30675b-1fe2-4f4f-aa34-fab5e8fa75e9"],
Cell[281649, 8015, 390, 12, 36, "Code",ExpressionUUID->"b02e78a5-695e-4eb9-a8af-a3041887d8e8"],
Cell[282042, 8029, 770, 23, 36, "Code",ExpressionUUID->"0a3ecf44-257c-4fb1-adac-d8396c77e0c4"],
Cell[282815, 8054, 846, 25, 36, "Code",ExpressionUUID->"b448e116-6e14-42a9-8750-993c1af47228"],
Cell[283664, 8081, 359, 11, 36, "Code",ExpressionUUID->"da932ba9-92c0-44d1-968b-cbb4ce7ed39c"],
Cell[284026, 8094, 506, 15, 36, "Code",ExpressionUUID->"abed4dba-ef15-49b6-afee-2ee63b9142af"]
}, Open  ]]
}
]
*)

